Come estrarre l'ultimo numero da una stringa di testo in Excel?

Supponiamo che tu abbia un elenco di stringhe di testo miste con testi e numeri, ora devi estrarre l'ultimo insieme di numeri come mostrato nello screenshot seguente. Come potresti gestire questa operazione in Excel?

Estrai gli ultimi numeri dalle stringhe di testo con il codice VBA

Estrai gli ultimi numeri dalle stringhe di testo con il codice VBA

Per estrarre rapidamente l'ultimo insieme di numeri dalle stringhe di testo, puoi applicare il seguente codice VBA. Procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, quindi copia e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Estrai gli ultimi numeri dalle stringhe di testo:

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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo che ti ricorda di selezionare l'intervallo dati che desideri utilizzare, vedi screenshot:

4. Dopodiché clicca sul pulsante OK, e l'ultimo insieme di numeri sarà estratto da ogni stringa di testo nelle celle della colonna adiacente, vedi screenshot: