Extraer solo parte numérica de una cadena de texto
Como puedo hacer para extraer solo la parte numérica de una cadena de texto, he combinado tres funciones, min, extraer, y encontrar, pero tengo una dificultad al momento de extraer los dígitos de una celda, no me extrae completo, si me podrías orientar
1 Respuesta
Respuesta de Dante Amor
2
Te anexo una función
Function quitarletras(celda As Range) 'Por.Dante Amor For i = 1 To Len(celda) For j = 0 To 9 l = Mid(celda.Value, i, 1) If IsNumeric(Mid(celda.Value, i, 1)) Then If Val(Mid(celda.Value, i, 1)) = j Then cad = cad & Mid(celda.Value, i, 1) Exit For End If End If Next Next quitarletras = cad End Function
Sigue las Instrucciones para una Función
- Abre tu libro de excel
- Para abrir VBa y poder pegar la función, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la función
- En cualquier celda utiliza la función, como cualquier otra función de excel
Por ejemplo, si tienes en la celda A4 esto:
12345datos25
Pon la siguiente función en la celda B4
=quitarletras(A4)
El resultado:
1234525
Saludos. Dante Amor
Si es lo que necesitas.
