Como extrair o último número de uma sequência de texto no Excel?

Suponha que você tenha uma lista de sequências de texto misturadas com textos e números, e agora precisa extrair o último conjunto de números, conforme mostrado na captura de tela a seguir. Como você poderia realizar essa tarefa no Excel?

Extrair os últimos números de sequências de texto com código VBA

Extrair os últimos números de sequências de texto com código VBA

Para extrair rapidamente o último conjunto de números de sequências de texto, você pode aplicar o seguinte código VBA. Por favor, siga estas instruções:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, depois copie e cole o seguinte código na Janela do Módulo.

Código VBA: Extrair os últimos números de sequências de texto:

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. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de prompt será exibida para lembrá-lo de selecionar o intervalo de dados que deseja usar, veja a captura de tela:

4. Depois clique no botão OK, e o último conjunto de números terá sido extraído de cada sequência de texto para as células da coluna adjacente, veja a captura de tela: