Hoe verplaats ik 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 volgende schermafbeelding wordt getoond, natuurlijk kun je ze een voor een knippen en plakken, maar zijn er snelle manieren om te verplaatsen ze naar de volgende cel tegelijk in Excel?
Verplaats het laatste woord naar de volgende aangrenzende cel met VBA-code
Extraheer het laatste woord naar de volgende aangrenzende cel met formule
Verplaats het laatste woord naar de volgende aangrenzende cel met VBA-code
Pas de volgende VBA-code toe om het laatste woord van de ene cel naar de volgende aangrenzende cel te knippen en te verplaatsen:
1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
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 F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de tekstcellen te selecteren waaruit u het laatste woord wilt verplaatsen, zie screenshot:
4. En klik vervolgens op OK knop, zijn de laatste woorden in geselecteerde cellen onmiddellijk naar de volgende aangrenzende rechtercellen verplaatst, zie screenshot:
Extraheer het laatste woord naar de volgende aangrenzende cel met formule
Als u alleen de laatste woorden uit de tekstreeksen moet extraheren zonder ze te verplaatsen, kan de volgende formule u een plezier doen.
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 omlaag naar de cellen waarvan u het laatste woord wilt extraheren, alle laatste woorden zijn uit de tekstreeksen gehaald zonder de originele te verplaatsen. Zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!