Hoe het laatste nummer uit een tekstreeks in Excel te extraheren?

Stel dat je een lijst hebt met tekstreeksen die gemengd zijn met tekst en cijfers, en nu moet je de laatste reeks cijfers extraheren zoals in de volgende schermafbeelding wordt getoond. Hoe zou je deze taak in Excel kunnen uitvoeren?

Laatste cijfers uit tekstreeksen extraheren met VBA-code

Laatste cijfers uit tekstreeksen extraheren met VBA-code

Om snel de laatste reeks cijfers uit tekstreeksen te extraheren, kun je de volgende VBA-code toepassen. Doe dit als volgt:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, kopieer en plak vervolgens de volgende code in het Modulevenster.

VBA-code: Laatste cijfers uit tekstreeksen extraheren:

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. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een promptvenster dat je eraan herinnert om het gegevensbereik te selecteren dat je wilt gebruiken, zie screenshot:

4. Klik vervolgens op de knop OK, en de laatste reeks cijfers is geëxtraheerd uit elke tekstreeks naar de aangrenzende celkolommen, zie screenshot: