Hoe verplaatst u het laatste woord naar de aangrenzende cel ernaast?
Stel dat u een lijst met tekstreeksen hebt en u het laatste woord van elke reeks naar de aangrenzende cel ernaast wilt verplaatsen, zoals in de onderstaande schermafbeelding is weergegeven. Uiteraard kunt u dit handmatig doen door elk woord één voor één te knippen en plakken — maar bestaan er ook snellere manieren om dit in Excel in één keer voor de hele lijst uit te voeren?
Laatste woord verplaatsen naar de volgende aangrenzende cel met VBA-code
Laatste woord extraheren naar de volgende aangrenzende cel met een formule
Laatste woord verplaatsen naar de volgende aangrenzende cel met VBA-code
Om het laatste woord uit een cel te knippen en naar de volgende aangrenzende cel te verplaatsen, past u de volgende VBA-code toe:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Laatste woord verplaatsen naar de volgende aangrenzende cel:
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. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd de tekstcellen te selecteren waaruit u het laatste woord wilt verwijderen. Zie de schermafbeelding:
4. Klik daarna op de knop OK, waarna de laatste woorden in de geselecteerde cellen onmiddellijk naar de aangrenzende cel rechts worden verplaatst. Zie de schermafbeelding:
Laatste woord extraheren naar de volgende aangrenzende cel met een formule
Als u alleen de laatste woorden uit de tekstreeksen wilt extraheren zonder ze te verplaatsen, helpt de volgende formule u daarbij.
Voer deze formule in:
=RIGHT(A2,LEN(A2)-FIND(„*",SUBSTITUTE(A2," ",„*",LEN(A2)-LEN(SUBSTITUTE(A2," ",„"))))) in een lege cel naast de tekstcel en sleep vervolgens de vulgreep naar beneden over de cellen waaruit u het laatste woord wilt extraheren. Zo worden alle laatste woorden automatisch uit de tekstreeksen gehaald, zonder de oorspronkelijke inhoud aan te passen. Zie de schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins