Come spostare l'ultima parola nella cella adiacente successiva?

Supponiamo di avere un elenco di stringhe di testo che voglio spostare nell'ultima parola della cella adiacente successiva, come mostrato nello screenshot seguente. Certo, puoi tagliare e incollare una per una, ma ci sono modi rapidi per spostarle tutte insieme in Excel?

Sposta l'ultima parola nella cella adiacente successiva con il codice VBA

Estrai l'ultima parola nella cella adiacente successiva con la formula

Sposta l'ultima parola nella cella adiacente successiva con il codice VBA

Per tagliare e spostare l'ultima parola da una cella alla cella adiacente successiva, applica il seguente codice VBA:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Sposta l'ultima parola nella cella adiacente successiva:

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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo per ricordarti di selezionare le celle di testo da cui vuoi spostare l'ultima parola, vedi screenshot:

4. E poi clicca sul pulsante OK, le ultime parole nelle celle selezionate saranno immediatamente spostate nelle celle a destra adiacenti, vedi screenshot:

Estrai l'ultima parola nella cella adiacente successiva con la formula

Se hai solo bisogno di estrarre le ultime parole dalle stringhe di testo senza spostarle, la seguente formula può esserti utile.

Inserisci questa formula:

=DESTRA(A2;LUNGHEZZA(A2)-TROVA("*";SOSTITUISCI(A2;" ";"*";LUNGHEZZA(A2)-LUNGHEZZA(SOSTITUISCI(A2;" ";""))))) in una cella vuota accanto alla cella di testo, e poi trascina la maniglia di riempimento verso il basso fino alle celle da cui vuoi estrarre l'ultima parola. Tutte le ultime parole sono state estratte dalle stringhe di testo senza spostare quelle originali. Vedi screenshot: