Hoe verplaats je het laatste woord naar de volgende aangrenzende cel?
Stel dat ik een lijst met tekstreeksen heb waarvan ik het laatste woord naar de volgende aangrenzende cel wil verplaatsen, zoals in de onderstaande schermafbeelding te zien is. Natuurlijk kun je ze één voor één knippen en plakken, maar zijn er ook snelle manieren om ze tegelijkertijd naar de volgende cel te verplaatsen in Excel?
Verplaats het laatste woord naar de volgende aangrenzende cel met VBA-code
Haal het laatste woord naar de volgende aangrenzende cel met een formule
Verplaats het laatste woord naar de volgende aangrenzende cel met VBA-code
Om het laatste woord uit een cel te knippen en te verplaatsen naar de volgende aangrenzende cel, pas dan de volgende VBA-code toe:
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: Verplaats het laatste woord 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 F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster om u eraan te herinneren de tekstcellen te selecteren waaruit u het laatste woord wilt verplaatsen, zie onderstaande schermafbeelding:
4. Klik vervolgens op de knop OK, en de laatste woorden in de geselecteerde cellen zijn onmiddellijk verplaatst naar de volgende aangrenzende rechtercellen, zie onderstaande schermafbeelding:
Haal het laatste woord naar de volgende aangrenzende cel met een formule
Als je alleen de laatste woorden uit de tekstreeksen wilt extraheren zonder ze te verplaatsen, kan de volgende formule je helpen.
Voer de volgende 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 omlaag naar de cellen waaruit je het laatste woord wilt extraheren. Alle laatste woorden zijn nu geëxtraheerd uit de tekstreeksen zonder de originele te verplaatsen. Zie onderstaande schermafbeelding:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen