Stel dat u een lijst met tekstreeksen heeft die zijn vermengd met tekst en cijfers, nu moet u de laatste reeks getallen extraheren zoals in het volgende screenshot wordt getoond. Hoe kon je deze klus in Excel afhandelen?
Haal de laatste nummers uit tekstreeksen met VBA-code
Om snel de laatste reeks getallen uit tekstreeksen te extraheren, kunt u de volgende VBA-code toepassen. Doe als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Module, kopieer en plak vervolgens de volgende code in het Module Venster.
VBA-code: extraheer de laatste nummers uit tekstreeksen:
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 F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt gebruiken, zie screenshot:
4. En klik vervolgens op OK knop, en de laatste reeks getallen is uit elke tekstreeksen geëxtraheerd naar de aangrenzende kolomcellen, zie screenshot:
