¿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 una cadena de texto alfanumérica mixta en Excel.
Extraiga números de cadenas de texto alfanuméricas mixtas con fórmula
Extraiga números de cadenas de texto alfanuméricas mixtas con código VBA
Extraiga fácilmente números de cadenas de texto alfanuméricas mixtas con una herramienta increíble
Extraiga 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 en una cadena de texto en Excel.
1. Seleccione una celda en blanco para generar los números extraídos, ingrese la siguiente fórmula y presione el Participar llave. 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),"")
Note: En la fórmula, A1 es la celda que contiene la cadena de texto de la que desea extraer los números. Cámbielo según sus necesidades.
Luego, los números se extraen de cualquier lugar de una cadena de texto en celdas específicas como se muestra en la captura de pantalla anterior.
Mantenga solo los números en cadenas de texto alfanuméricas mixtas con código VBA
El siguiente código VBA puede ayudarlo a eliminar todos los caracteres no numéricos del rango especificado y mantener solo números en las celdas. Haz lo siguiente.
Note: Como el código excede directamente el rango original, guarde una copia del rango original en caso de pérdida de datos.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana del Módulo.
Código de VBA: elimine 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 el F5 clave para ejecutar el código. Entonces un Kutools for Excel aparece el cuadro de diálogo, seleccione el rango que contiene las cadenas de texto alfanuméricas mixtas; conservará solo los números y haga clic en el OK del botón.
Ahora todos los caracteres no numéricos en el rango seleccionado se han eliminado de inmediato y solo se han conservado los números. Ver captura de pantalla:
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 utilidad, la extracción de números de una cadena de texto puede ser fácil de manejar.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Hacer clic en Kutools > Texto > Extraer texto para habilitar la característica.
2. En el Extraer texto cuadro de diálogo, realice la siguiente configuración.
Nota: Asegúrate de leer Insertar como fórmula El cuadro en la esquina inferior izquierda del diálogo insertará el resultado como fórmula en las celdas de resultados. Cuando el valor de la celda referenciada cambia, el resultado se actualizará automáticamente.
3. En el Extraer texto cuadro de diálogo, seleccione una celda en blanco para generar el texto extraído y luego haga clic en DE ACUERDO.
Luego, se extraen los números de cualquier posición en una cadena de texto. Ver captura de pantalla:
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!