¿Cómo intercambiar o invertir el texto dentro de una celda en Excel?
En muchos casos, es posible que necesite invertir el texto dentro de una sola celda para algún propósito específico. Por ejemplo, una celda contiene el nombre «Smith John» y desea intercambiar los elementos dentro de la celda para convertirlo en «John Smith». Este artículo presenta varios métodos para resolver este problema.
Intercambiar o invertir el texto dentro de una celda mediante fórmula
Intercambiar o invertir el texto dentro de una celda mediante código VBA
Intercambiar o invertir fácilmente el texto dentro de una celda con Kutools para Excel>
Intercambiar o invertir el texto dentro de una celda mediante fórmula
La siguiente fórmula le permitirá intercambiar el texto dentro de una celda en Excel. Siga estos pasos:
1. Seleccione una celda vacía para colocar los datos intercambiados, introduzca la fórmula en la Barra de fórmulas y, a continuación, pulse la tecla Intro. Vea la captura de pantalla:
=RIGHT(A2,LEN(A2)-FIND(« »,A2)) & « » & LEFT(A2,FIND(« »,A2)-1)
2. Seleccione la celda con el resultado y arrastre el controlador de relleno hacia abajo para obtener el resto de resultados, tal como se muestra en la siguiente captura de pantalla.
A continuación, podrá ver que Nombre y Apellido se han intercambiado en las celdas especificadas.
Nota: Este método solo permite intercambiar dos textos dentro de una celda separados por un espacio.
Intercambie o invierta fácilmente el texto dentro de una celda en Excel:
La utilidad Invertir Texto de Kutools para Excel le permite intercambiar fácilmente el texto dentro de una celda según un separador determinado en Excel, tal como se muestra en la siguiente demostración.
¡Descárguela y pruébela ahora! (prueba gratuita de 30 días)
Intercambiar o invertir el texto dentro de una celda mediante código VBA
Tal como se muestra en el ejemplo anterior, también puede ejecutar el siguiente script VBA para intercambiar o invertir el texto dentro de una celda.
1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el siguiente código VBA en la ventana del módulo.
Código VBA: Intercambiar o invertir el texto dentro de una celda
Sub res()
Dim xRg As Range, yRg As Range
Dim LastRow As Long, i As Long
Dim strTxt As String, strFs As String
Dim strLs As String, N As Integer
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Type:=8)
For Each yRg In xRg
On Error Resume Next
strTxt = yRg.Value
Trim (strTxt)
N = InStr(strTxt, " ")
strLs = Left(strTxt, N - 1)
strFs = Right(strTxt, Len(strTxt) - N)
yRg.Value = strFs & " " & strLs
Next
End Sub3. Pulse la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente Kutools para Excel, seleccione el rango con los datos que desea intercambiar y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:
A continuación, verá que los textos en las celdas de nombres especificadas se intercambian inmediatamente.
Nota: Este código también permite intercambiar correctamente dos palabras dentro de una celda separadas por un espacio.
Intercambie o invierta fácilmente el texto dentro de una celda con Kutools para Excel
Esta sección recomienda la utilidad Invertir texto de Kutools para Excel para ayudarle a resolver fácilmente este problema. Proceda del siguiente modo.
1. Seleccione el rango que contiene los textos que desea intercambiar y, a continuación, haga clic en Kutools > Texto > Invertir texto. Vea la captura de pantalla:
2. En el cuadro de diálogo Invertir Texto, especifique el separador según el cual desea intercambiar los textos en la sección Separador. En este caso, seleccione la opción Espacio y, a continuación, haga clic en el botón Aceptar.
A continuación, verá que los datos de las celdas seleccionadas se intercambian inmediatamente en la misma celda según el separador especificado.
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Artículo relacionado:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos