¿Cómo extraer el último número de la cadena de texto en Excel?
Supongamos que tiene una lista de cadenas de texto que se mezclan con textos y números, ahora, debe extraer el último conjunto de números como se muestra en la siguiente captura de pantalla. ¿Cómo podrías manejar este trabajo en Excel?
Extraiga los últimos números de cadenas de texto con código VBA
Extraiga los últimos números de cadenas de texto con código VBA
Para extraer rápidamente el último conjunto de números de cadenas de texto, puede aplicar el siguiente código VBA. Por favor haz lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Módulo, luego copie y pegue el siguiente código en el Módulo Ventana.
Código de VBA: extraiga los últimos números de las cadenas de texto:
Sub GetLastDigits()
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xRegEx As Object
Dim xRetList As Object
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column can be available", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "(\d+)"
End With
For Each xCell In xRg
Set xRetList = xRegEx.Execute(xCell.Value)
If xRetList.Count > 0 Then
If Left(xRetList(xRetList.Count - 1), 1) = 0 Then
xCell.Offset(0, 1) = Right(xRetList(xRetList.Count - 1), Len(xRetList(xRetList.Count - 1)) - 1)
Else
xCell.Offset(0, 1) = xRetList(xRetList.Count - 1)
End If
End If
Next
End Sub
3. Entonces presione F5 para ejecutar este código, y aparece un cuadro de aviso para recordarle que seleccione el rango de datos que desea usar, vea la captura de pantalla:
4. Y luego haz clic OK , y el último conjunto de números se ha extraído de cada cadena de texto en las celdas de la columna adyacente, vea la captura de pantalla:
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!