Con esta función podrás agregar en una celda el dígito verificador del Rut (Chile).

[vb]
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
[/vb]

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.