Как извлечь последнее число из текстовой строки в Excel?

Предположим, у вас есть список текстовых строк, смешанных с текстом и числами, теперь вам нужно извлечь последний набор чисел, как показано на следующем снимке экрана. Как бы вы справились с этой задачей в Excel?

Извлеките последние числа из текстовых строк с кодом VBA

Извлеките последние числа из текстовых строк с кодом VBA

Чтобы быстро извлечь последний набор чисел из текстовых строк, вы можете применить следующий код VBA. Пожалуйста, сделайте так:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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