Comment déplacer le dernier mot vers la cellule adjacente suivante ?

Supposons que j'aie une liste de chaînes de texte dont je souhaite déplacer le dernier mot vers la cellule adjacente suivante, comme le montre la capture d'écran ci-dessous. Bien sûr, vous pouvez les couper et les coller un par un, mais existe-t-il des méthodes rapides pour les déplacer vers la cellule suivante en une seule fois dans Excel ?

Déplacer le dernier mot vers la cellule adjacente suivante avec le code VBA

Extraire le dernier mot vers la cellule adjacente suivante avec une formule

Déplacer le dernier mot vers la cellule adjacente suivante avec le code VBA

Pour couper et déplacer le dernier mot d'une cellule à la cellule adjacente suivante, veuillez appliquer le code VBA suivant :

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

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

Code VBA : Déplacer le dernier mot vers la cellule adjacente suivante :

Sub splitlastword()
    Dim xCell As Range
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
       MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
       Exit Sub
    End If
    For Each xCell In xRg
        xStr = Trim(xCell.Value)
        xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
        xCell.Value = Left(xStr, InStrRev(xStr, " "))
    Next
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner les cellules de texte à partir desquelles vous souhaitez déplacer le dernier mot, voir capture d'écran :

4. Cliquez ensuite sur le bouton OK, et les derniers mots des cellules sélectionnées sont immédiatement déplacés vers les cellules adjacentes droites suivantes, voir capture d'écran :

Extraire le dernier mot vers la cellule adjacente suivante avec une formule

Si vous avez simplement besoin d'extraire les derniers mots des chaînes de texte sans les déplacer, la formule suivante peut vous aider.

Veuillez entrer cette formule :

=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) dans une cellule vide à côté de la cellule de texte, puis faites glisser la poignée de remplissage vers le bas jusqu'aux cellules où vous souhaitez extraire le dernier mot. Tous les derniers mots ont été extraits des chaînes de texte sans toucher aux données originales. Voir capture d'écran :