¿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:
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos