Hola,
Prueba esto:
Inserta una columna al lado derecho de la lista de ruts, para el ejemplo la lista estará en la columna A, luego usa el siguiente codigo.
Sub EXTRAER_RUT()
Columns("A:A").Select
Selection.Replace What:=".", Replacement:=""
Selection.NumberFormat = "0"
Selection.TextToColumns Destination:=[A1], Other:=True, OtherChar _
:="-", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
