¿Cómo extraer números de cadenas de texto alfanuméricas mixtas en Excel?

Este tutorial proporciona tres métodos para ayudar a extraer números de cadenas de texto alfanuméricas mixtas en Excel.

Extraer números de cadenas de texto alfanuméricas mixtas con fórmula
Extraiga fácilmente números de cadenas de texto alfanuméricas mixtas con una herramienta increíble
Extraer números de cadenas de texto alfanuméricas mixtas con código VBA

Extraer números de cadenas de texto alfanuméricas mixtas con fórmula

Puede aplicar la siguiente fórmula para extraer números de cualquier lugar dentro de una cadena de texto en Excel.

1. Seleccione una celda en blanco para mostrar los números extraídos, ingrese la siguiente fórmula y presione la tecla Enter. Luego, arrastre el controlador de autocompletar hacia abajo para aplicar la fórmula a otras celdas.

=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")

Nota: En la fórmula, A1 es la celda que contiene la cadena de texto de la que desea extraer números. Cambie esta referencia según sea necesario.

Luego, los números se extraen desde cualquier lugar de una cadena de texto en las celdas especificadas, como se muestra en la captura de pantalla anterior.

Extraiga fácilmente números de cadenas de texto alfanuméricas mixtas con Kutools para Excel

Esta sección recomienda la utilidad Extraer Texto de Kutools para Excel. Con esta herramienta, extraer números de una cadena de texto puede ser fácil de manejar.

1. Haga clic en Kutools > Texto > Extraer Texto para habilitar la función.

2. En el cuadro de diálogo Extraer Texto, realice la siguiente configuración.

2.1) Haga clic en la pestaña Extraer por posición (esta pestaña está habilitada por defecto);

2.2) En la Rango sección, haga clic en el botón para seleccionar el rango de celdas del cual extraerá texto;

2.3) En la sección Opciones: Seleccione la opción Extraer el número;

2.4) Haga clic en Aceptar.

Nota: Marcar la casilla Insertar como fórmula en la esquina inferior izquierda del cuadro de diálogo insertará el resultado como una fórmula en las celdas de resultados. Cuando cambie el valor de la celda referenciada, el resultado se actualizará automáticamente.

3. En el cuadro de diálogo Extraer Texto, seleccione una celda en blanco para mostrar el texto extraído y luego haga clic en Aceptar.

Luego, los números de cualquier posición dentro de una cadena de texto son extraídos. Ver captura de pantalla:

Mantener solo números en cadenas de texto alfanuméricas mixtas con código VBA

El siguiente código VBA puede ayudarle a eliminar todos los caracteres no numéricos de un rango especificado y mantener solo los números en las celdas. Por favor, siga los siguientes pasos.

Nota: Como el código se ejecuta directamente sobre el rango original, mantenga una copia del rango original en caso de pérdida de datos.

1. Presione simultáneamente las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. En la ventana Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. Luego, copie y pegue el siguiente código VBA en la ventana Módulo.

Código VBA: eliminar todos los caracteres no numéricos de las celdas

Sub GetNumbers()
'Updated by Extendoffice 20210125
    Dim xRegEx As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRegEx = CreateObject("VBScript.RegExp")
    With xRegEx
        .Pattern = "\D+"
        .IgnoreCase = True
        .Global = True
    End With
    xRg.NumberFormat = "@"
    For Each xCell In xRg
        xCell.Value = xRegEx.Replace(xCell.Value, "")
    Next
    Set xRegEx = Nothing
End Sub

3. Presione la tecla F5 para ejecutar el código. Luego aparecerá un cuadro de diálogo de Kutools para Excel, seleccione el rango que contiene las cadenas de texto alfanuméricas mixtas de las cuales solo mantendrá los números y haga clic en el botón Aceptar.

Ahora, todos los caracteres no numéricos en el rango seleccionado se han eliminado inmediatamente, y solo se conservan los números. Ver captura de pantalla: