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
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
