Macro para Extraer Números de Cadenas de Texto Excel

Recurramos a las macros y al VBA de Excel para crear nuestra propia función que nos permita Extraer solo los números o solo las Letras de una cadena de Texto en una Celda de Excel. Esta funcionalidad no la tiene por defecto Excel, sin embargo con esta sencilla función haremos las dos cosas al tiempo. Además de eso, vamos a poder insertar esta función dentro de nuestra área de complementos de Excel para poder usarla desde cualquier libro que queramos usar en nuestra PC.

----------------COPIE Y PEGUE ESTE CÓDIGO EN EL EDITOR VBA----------------------

Function EXTRAER_WILMER(cadena As String, Optional extrae_solo_numeros As Boolean = True) As String

    Dim caracter As Long

    Dim resultado As String

    Dim caracter_encontrado As String

    resultado = ""

    For caracter = 1 To Len(cadena)

        caracter_encontrado = Mid(cadena, caracter, 1)

        If extrae_solo_numeros = True And IsNumeric(caracter_encontrado) = True Then

            resultado = resultado & caracter_encontrado

        ElseIf extrae_solo_numeros = False And Not IsNumeric(caracter_encontrado) Then

            resultado = resultado & caracter_encontrado

        End If

    Next caracter

    EXTRAER_WILMER = resultado

End Function