¿Extraer números desde cadenas alfanuméricas?:)
Buenas... Tengo un archivo en el cual hay ciertos campos que contienes cadenas alfanuméricas, de las cuales solo me interesan los números, el problema que veo es que no todos los números están en la misma posición.
Ej.
Celda A1: 470SHT
Celda A2: 1250MGY
Entiendo que debo hacer un algoritmo, pero no sé como... Alguien me puede orientar, por favor...
Gracias
Ej.
Celda A1: 470SHT
Celda A2: 1250MGY
Entiendo que debo hacer un algoritmo, pero no sé como... Alguien me puede orientar, por favor...
Gracias
Respuesta de caranbis
1
'Puedes usar la siguiente fórmula personalizada
Public Function Extraer_Numeros(Celda As Range) As Double
Dim Temp As String
For i = 1 To Len(Celda.Value)
If IsNumeric(Mid(Celda.Value, i, 1)) Then Temp = Temp & Mid(Celda.Value, i, 1)
Next
Extraer_Numeros = Temp
End Function
Public Function Extraer_Numeros(Celda As Range) As Double
Dim Temp As String
For i = 1 To Len(Celda.Value)
If IsNumeric(Mid(Celda.Value, i, 1)) Then Temp = Temp & Mid(Celda.Value, i, 1)
Next
Extraer_Numeros = Temp
End Function
