如何在 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. 然后单击 确定 按钮，每个文本字符串中的最后一组数字已被提取到相邻列的单元格中，请参见截图：