Función (UDF) en Excel para extraer números de una celda

La siguiente función UDF nos ayudará a extraer todos los valores numéricos que se encuentres en una celda de Excel.

El uso es muy simple, sólo hay que escribir en una celda =ExtraeNumeros(A1) y devolverá los números que haya en la celda elegida.

Ejemplo

UDFExtrae

Ver video aprendamos UDF’s en Excel – Extraer números de una celda

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

La función es válida si el valor de le celda es escrito de manera manual como si es resultado de una fórmula u otra función.

Código

El siguiente código hay que pegarlo en un módulo normal.

'Fecha:         21-jul-2013
'Función:       ExtraeNúmeros
'Descripción:   Extrae los números de una celda elegida.
'Sitio:         http://blogs.itpro.es/exceleinfo/
Option Explicit
Function ExtraeNumeros(Celda As Variant)
Dim Largo As Integer
Dim i As Integer
Dim Valor As String
Dim Valor1 As String
Application.Volatile
'
'Definimos el largo de la celda
Largo = Len(Celda)
'
'Recorremos cada caracter de la celda y validamos
'sin es número
For i = 1 To Largo
    Valor = Mid(Celda, i, 1)
    If Asc(Valor) >= 48 And Asc(Valor) <= 57 Then
        Valor1 = Valor1 & Valor
    Else
    End If
Next i
'
'El valor concatenado de todos los números los asignamos
'como resultado de la función
ExtraeNumeros = Valor1
End Function

You may also like...

3 Responses

  1. niinmx says:

    BUENAS … EXCELENTE PAGINA! UNA PREGUNTA
    ‘Definimos el largo de la celda
    Largo = Len(Celda)

    Con “largo” nos referimos a los numero a buscar o a la cantidad de caracteres q tiene la celda donde vamos a buscar?

  1. July 22, 2013

    […] Función (UDF) en Excel para extraer números de una celda […]

Leave a Reply

Your email address will not be published. Required fields are marked *