如何在 Excel 中從文字字串提取最後一個數字？

假設您有一個混合了文字和數字的文字字串列表，現在，您需要像以下螢幕截圖所示那樣提取最後一組數字。您要如何在 Excel 中處理這個任務呢？

使用 VBA 程式碼從文字字串中提取最後的數字

使用 VBA 程式碼從文字字串中提取最後的數字

為了快速從文字字串中提取最後一組數字，您可以應用以下 VBA 程式碼。請按照以下步驟操作：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，然後將以下程式碼複製並粘貼到模組視窗中。

VBA 程式碼：從文字字串中提取最後的數字：

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. 然後按 F5 鍵運行程式碼，會出現一個提示框，提醒您選擇要使用的資料區域，請參見以下螢幕截圖：

4. 然後點擊 確定 按鈕，每個文字字串中的最後一組數字已經被提取到相鄰的列單元格中，請參見以下螢幕截圖：