Hur extraherar jag det sista numret från textsträngen i Excel?

Om du antar att du har en lista med textsträngar som blandas med texter och siffror, nu måste du extrahera den sista uppsättningen siffror som följande skärmdump visas. Hur kunde du hantera det här jobbet i Excel?

Extrahera sista siffror från textsträngar med VBA-kod

Extrahera sista siffror från textsträngar med VBA-kod

För att snabbt extrahera den sista siffran från textsträngar kan du använda följande VBA-kod. Gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, kopiera och klistra sedan in följande kod i Modulerna Fönster.

VBA-kod: Extrahera sista siffror från textsträngar:

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. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta visas för att påminna dig om att välja det dataområde du vill använda, se skärmdump:

4. Och klicka sedan på OK knappen, och den sista uppsättningen siffror har extraherats från varje textsträng till de intilliggande kolumncellerna, se skärmdump: