¿Cómo mover la última palabra a la celda adyacente siguiente?

Supongamos que tengo una lista de cadenas de texto de las cuales quiero mover la última palabra a la celda adyacente siguiente, como se muestra en la siguiente captura de pantalla. Por supuesto, puedes cortar y pegarlas una por una, pero, ¿hay alguna manera rápida de moverlas a la siguiente celda de una vez en Excel?

Mover la última palabra a la celda adyacente siguiente con código VBA

Extraer la última palabra a la celda adyacente siguiente con fórmula

Mover la última palabra a la celda adyacente siguiente con código VBA

Para cortar y mover la última palabra de una celda a la celda adyacente siguiente, aplica el siguiente código VBA:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Mover la última palabra a la celda adyacente siguiente:

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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones las celdas de texto de las que deseas mover la última palabra, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y las últimas palabras en las celdas seleccionadas se habrán movido inmediatamente a las celdas adyacentes a la derecha, ver captura de pantalla:

Extraer la última palabra a la celda adyacente siguiente con fórmula

Si solo necesitas extraer las últimas palabras de las cadenas de texto sin moverlas, la siguiente fórmula puede ayudarte.

Por favor, introduce esta fórmula:

=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) en una celda en blanco junto a la celda de texto, y luego arrastra el controlador de relleno hacia abajo a las celdas donde deseas extraer la última palabra; todas las últimas palabras se han extraído de las cadenas de texto sin mover las originales. Ver captura de pantalla: