Cum să mutați ultimul cuvânt în următoarea celulă adiacentă?

Presupunând că am o listă de șiruri de text pe care vreau să le mut ultimul cuvânt în celula alăturată următoare, după cum se arată în următoarea captură de ecran, desigur, le puteți tăia și lipi unul câte unul, dar există vreo modalitate rapidă de a ne muta le la următoarea celulă simultan în Excel?

Mutați ultimul cuvânt în următoarea celulă adiacentă cu cod VBA

Extrageți ultimul cuvânt în următoarea celulă adiacentă cu formula

Mutați ultimul cuvânt în următoarea celulă adiacentă cu cod VBA

Pentru a tăia și muta ultimul cuvânt dintr-o celulă în următoarea celulă adiacentă, vă rugăm să aplicați următorul cod VBA:

1. Țineți apăsată tasta ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: Mutați ultimul cuvânt în următoarea celulă adiacentă:

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. Apoi apăsați F5 pentru a rula acest cod și apare o casetă de prompt pentru a vă reaminti să selectați celulele text din care doriți să mutați ultimul cuvânt, vedeți captura de ecran:

4. Apoi faceți clic pe OK butonul, ultimele cuvinte din celulele selectate au fost mutate imediat în celulele din dreapta următoare, vezi captura de ecran:

Extrageți ultimul cuvânt în următoarea celulă adiacentă cu formula

Dacă trebuie doar să extrageți ultimele cuvinte din șirurile de text fără a le muta, următoarea formulă vă poate face o favoare.

Vă rugăm să introduceți această formulă:

=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) într-o celulă goală lângă celula de text, apoi glisați mânerul de umplere în jos în celulele pe care doriți să le extrageți ultimul cuvânt, toate ultimele cuvinte au fost extrase din șirurile de text fără a le muta pe cele originale. Vedeți captura de ecran: