Eliminar ceros de una cadena de números de 18 dígitos
Eliminar ceros de una cadena de números de 18 dígitos . Tengo diferentes cadenas de números todas de 18 dígitos . Un ejemplo de ellas son las siguientes ...(903000006006600030 ) ; (000630060000000000); (000000609300000900 ); (300060006600930000 ) y quedar reducidas a 936663 ; 636 ; 6939 ; 366693 respectivamente .Inclusive puede dar resultado "nada; sin resultado" o una sola cifra .liminar ceros de una cadena de números de 18 dígitos . Tengo diferentes cadenas de números todas de 18 dígitos . Un ejemplo de ellas son las siguientes ...(903000006006600030 ) ; (000630060000000000); (000000609300000900 ); (300060006600930000 ) y quedar reducidas a 936663 ; 636 ; 6939 ; 366693 respectivamente .Inclusive puede dar resultado "nada; sin resultado" o una sola
2 Respuestas
Le complemento con esta función si desea suprimir ciertos caracteres, como números y letras:
Public Function ajusta_tel(ByVal strTel As Variant, ByVal strNumeros As String) As String
'Función para retirar los caracteres del parámetro 1 que no estén en
'el parámetro 2
'Ejemplos:
' ajusta_tel("1235857-BD","0123456789") ---> Retorna 1235857
' ajusta_tel("1235857-BD","0123456789D") ---> Retorna 1235857D
Dim strCaracter As String
Dim strTemp As String
Dim intPos As Integer
strTemp = ""
For intPos = 1 To Len(strTel)
strCaracter = Mid(strTel, intPos, 1)
If InStr(strNumeros, strCaracter) > 0 Then
strTemp = strTemp & strCaracter
End If
Next
ajusta_tel = strTemp
End FunctionEjemplo
Visita:
Cursos de Excel y Macros - YouTube
En excel utiliza esta fórmula:
=SUSTITUIR(A2,"0","")
Recomendaciones: