Nilo Parece

Dante Amor respondió: [Ho la y bienvenido a TodoExpertos! Utiliza la siguiente función: Function CuantosDiferentes(dato As String) As String Dim c As String, x As String Dim i As Long dato = Replace(dato, ".", "") For i = 1 To Len(dato) x = Mid(dato, i, 1) If InStr(1, c,...