MACRO PARA EXTRAER SOLO NUMEROS DE UNA CADENA DE TEXTO

 

 EXTRAER SOLO NUMEROS DE UNA CADENA DE TEXTO EN EXCEL 

Vamos crear una función definida por el usuario para extraer solo números, esta función lo vamos a llamar ExtraerNumeros, teniendo como un único argumento la celda que contiene la cadena de texto con  números que deseo extraer. 

Ejemplo: Deseo extraer solo los números que contiene el rango de celdas A3:A11, para eso hemos creado una función definida por el usuario llamado ExtraerNumeros() que tiene como único argumento la celda que contiene la cadena de texto con números.

Para extraer los números que contiene la celda A3 (Rosa123) utilizamos la función ExtraerNumeros(A3) y vemos que en la celda C3 se ha extraído solo los números (123) que contiene la celda A3.

Para crear la función ExtraerNumeros(), vamos a copiar el siguiente código en un módulo:

Function ExtraerNumeros(cadena As String)

    Dim numeros As String

    Dim i As Long

    numeros = ""

    For i = 1 To Len(cadena)

        If IsNumeric(Mid(cadena, i, 1)) Then

            numeros = numeros & Mid(cadena, i, 1)

        End If

    Next

    ExtraerNumeros = numeros

End Function

VER VIDEO :