¿Cómo mover la última palabra a la siguiente celda adyacente?
Supongamos que tengo una lista de cadenas de texto que quiero mover la última palabra a la siguiente celda adyacente como se muestra en la siguiente captura de pantalla, por supuesto, puede cortarlas y pegarlas una por una, pero, ¿hay alguna forma rápida de movernos? a la siguiente celda a la vez en Excel?
Mueva la última palabra a la siguiente celda adyacente con el código VBA
Extraiga la última palabra a la siguiente celda adyacente con fórmula
Mueva la última palabra a la siguiente celda adyacente con el código VBA
Para cortar y mover la última palabra de una celda a la siguiente celda adyacente, aplique el siguiente código VBA:
1. Mantenga pulsado el botón ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: mueva la última palabra a la siguiente celda adyacente:
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. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione las celdas de texto de las que desea mover la última palabra, vea la captura de pantalla:
4. Y luego haz clic OK botón, las últimas palabras en las celdas seleccionadas se han movido a las siguientes celdas adyacentes a la derecha inmediatamente, vea la captura de pantalla:
Extraiga la última palabra a la siguiente celda adyacente con fórmula
Si solo necesita extraer las últimas palabras de las cadenas de texto sin moverlas, la siguiente fórmula puede hacerle un favor.
Introduzca esta fórmula:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) en una celda en blanco al lado de la celda de texto, y luego arrastre el controlador de relleno hacia las celdas en las que desea 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:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!