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 :
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels