Extraer todos los valores numéricos de una celda (macro)

11 Mar Extraer todos los valores numéricos de una celda (macro)

Sintaxis de la función: =EXTRAENUMEROS(A1)

Podemos extraer todos los valores numéricos de una celda con la siguiente macro:

Function EXTRAENUMEROS(CELDA)
Dim N As Long, C As String, R As String
For N = 1 To Len(CELDA)
C = Mid(CELDA, N, 1)
Select Case C
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
R = R & C
End Select
Next
EXTRAENUMEROS = R
End Function

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.