Hur flyttar jag sista ordet till nästa intilliggande cell?

Antag att jag har en lista med textsträngar som jag vill flytta det sista ordet till nästa intilliggande cell som följande skärmdump visas, naturligtvis kan du klippa och klistra in dem en efter en, men finns det några snabba sätt för oss att flytta dem till nästa cell på en gång i Excel?

Flytta sista ordet till nästa intilliggande cell med VBA-kod

Extrahera sista ordet till nästa intilliggande cell med formel

Flytta sista ordet till nästa intilliggande cell med VBA-kod

För att klippa ut och flytta det sista ordet från en cell till nästa intilliggande cell, använd följande VBA-kod:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Flytta sista ordet till nästa intilliggande cell:

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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att du väljer de textceller som du vill flytta det sista ordet från, se skärmdump:

4. Och klicka sedan på OK -knappen, de sista orden i valda celler har flyttats till nästa intilliggande högra celler omedelbart, se skärmdump:

Extrahera sista ordet till nästa intilliggande cell med formel

Om du bara behöver extrahera de sista orden från textsträngarna utan att flytta dem kan följande formel göra dig en tjänst.

Ange denna formel:

=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) in i en tom cell bredvid textcellen och dra sedan fyllningshandtaget ner till cellerna som du vill extrahera det sista ordet, alla sista ord har extraherats från textsträngarna utan att flytta originalet. Se skärmdump: