UDF para extraer solo el número de una celda usando VBA en Microsoft Excel
En este artículo, aprenderemos cómo usar el código VBA para extraer números solo de una celda con la función definida por el usuario.
Pregunta): Necesito una macro para recuperar el número solo de una celda que contiene datos alfanuméricos.
A continuación se muestra la instantánea de los datos en los que la columna A contiene datos alfanuméricos y los números esperados están en la columna B
Para obtener solo los números de la columna A; debemos seguir los pasos a continuación para iniciar el editor de VB
- Haga clic en la pestaña Desarrollador
- Desde el grupo Código, seleccione Visual Basic
Copie el siguiente código en el módulo estándar
Función NumericOnly (mystr como variante)
Atenuar myOutput como cadena, i como entero
Para i = 1 a Len (mystr)
Si IsNumeric (Mid (mystr, i, 1)) Entonces _
myOutput = myOutput y Mid (mystr, i, 1)
próximo
NumericOnly = myOutput * 1
Función final
- Para obtener el resultado en la celda B2, la fórmula es
- = NumericOnly (A2)
De esta manera, podemos recuperar números solo de una celda que contiene texto y números, usando código VBA.
Descargar - UDF para extraer solo un número de una celda usando VBA - xlsm