Comment extraire le dernier nombre d'une chaîne de texte dans Excel ?

Supposons que vous ayez une liste de chaînes de texte mélangées avec du texte et des nombres, et maintenant, vous devez extraire le dernier ensemble de nombres comme le montre la capture d'écran suivante. Comment pourriez-vous gérer cette tâche dans Excel ?

Extraire les derniers nombres des chaînes de texte avec un code VBA

Extraire les derniers nombres des chaînes de texte avec un code VBA

Pour extraire rapidement le dernier ensemble de nombres des chaînes de texte, vous pouvez appliquer le code VBA suivant. Veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis copiez et collez le code suivant dans la fenêtre Module.

Code VBA : Extraire les derniers nombres des chaînes de texte :

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. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner la plage de données que vous souhaitez utiliser, voir capture d'écran :

4. Puis cliquez sur le bouton OK, et le dernier ensemble de nombres a été extrait de chaque chaîne de texte vers les cellules de la colonne adjacente, voir capture d'écran :