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: