Как извлечь последнее число из текстовой строки в 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. После этого нажмите кнопку OK, и последний набор чисел будет извлечен из каждой текстовой строки в ячейки соседнего столбца, см. скриншот: