Con esta función podrás agregar en una celda el dígito verificador del Rut (Chile).
Public Function dvrut(rut) rut = Replace("0000" & rut, ".", "", 1) If InStr(1, rut, "-") > 0 Then rut = Left(rut, InStr(1, rut, "-") - 1) rut = Right(rut, 8) suma = 0 For i = 1 To 8 suma = suma + Val(Mid(rut, i, 1)) * Val(Mid("32765432", i, 1)) Next i dv = 11 - (suma Mod 11) If dv = 10 Then dv = "k" If dv = 11 Then dv = 0 dvrut = dv End Function
Para agregar la función debes ir a Programador->VisualBasic y en la columna de la izquierda sobre la carpeta que dice módulos botón derecho->insertar->modulo. En la ventana que se abre hay que copiar el código de la función y guardarlo.
En la hoja de Excel debes escribir =dvrut(CELDA), donde “CELDA” es la celda donde esta el Rut sin el dígito y te entregará el dígito verificador que corresponde.