Wie extrahiert man die letzte Zahl aus einer Textzeichenfolge in Excel?

Angenommen, Sie haben eine Liste von Textzeichenfolgen, die Text und Zahlen enthalten, und Sie möchten nun die letzte Gruppe von Zahlen wie im folgenden Screenshot gezeigt extrahieren. Wie könnten Sie diese Aufgabe in Excel bewältigen?

Letzte Zahlen aus Textzeichenfolgen mit VBA-Code extrahieren

Letzte Zahlen aus Textzeichenfolgen mit VBA-Code extrahieren

Um schnell die letzte Gruppe von Zahlen aus Textzeichenfolgen zu extrahieren, können Sie den folgenden VBA-Code anwenden. Gehen Sie bitte wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und kopieren Sie dann den folgenden Code in das Modulfenster.

VBA-Code: Letzte Zahlen aus Textzeichenfolgen extrahieren:

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. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Eingabeaufforderungsfenster erscheint, das Sie auffordert, den Datenbereich auszuwählen, den Sie verwenden möchten, siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK, und die letzte Gruppe von Zahlen wurde aus jeder Textzeichenfolge in die benachbarten Spaltenzellen extrahiert, siehe Screenshot: