Extraer Números en Excel mediante una UDF

Insertamos un módulo en el VBAProject (PERSONAL.XLSB)

Si deseamos que la UDF este disponible para emplearse en cualquier Libro.

Insertamos un módulo en el VBAProject del Libro en Uso

Si deseamos que la UDF este disponible únicamente para emplearse en un libro en especifico. Para identificarlo este lleva el mismo nombre del archivo y una vez que se escriba el código, el archivo debe guardarse como Libro de Excel habilitado para macros.

Copiamos el siguiente código:

Function ExtraerNumeros(Texto As String) As String

    Dim nmr As String, i As Integer, dgt As String

    For i = 1 To Len(Texto)

        dgt = Mid(Texto, i, 1)

        If (dgt Like "[0-9]") Then

            nmr = nmr & dgt

        End If

    Next i

    ExtraerNumeros = nmr

End Function

Pegamos y Guardamos el código:

Buscamos la función como: "ExtraerNumeros"