¿Cómo extraer el último número de una cadena de texto en Excel?

Supongamos que tienes una lista de cadenas de texto mezcladas con texto y números, y ahora necesitas extraer el último conjunto de números como se muestra en la siguiente captura de pantalla. ¿Cómo podrías manejar esta tarea en Excel?

Extraer los últimos números de cadenas de texto con código VBA

Extraer los últimos números de cadenas de texto con código VBA

Para extraer rápidamente el último conjunto de números de las cadenas de texto, puedes aplicar el siguiente código VBA. Por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, luego copia y pega el siguiente código en la Ventana del Módulo.

Código VBA: Extraer los últimos números de 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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo que te recordará seleccionar el rango de datos que deseas utilizar, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y el último conjunto de números se habrá extraído de cada cadena de texto hacia las celdas adyacentes de la columna, ver captura de pantalla: