¿Cómo intercambiar o cambiar texto dentro de una celda en Excel?
En muchos casos, es posible que deba intercambiar texto en una sola celda para algunos fines. Por ejemplo, una celda contiene un nombre Smith John, debe intercambiar los textos dentro de la celda para cambiar el nombre a John Smith. Este artículo enumera algunos métodos para resolver este problema.
Intercambie o cambie el texto dentro de una celda usando la fórmula
Intercambie o cambie el texto dentro de una celda usando el código VBA
Intercambie o cambie fácilmente el texto dentro de una celda por Kutools para Excel>
Intercambie o cambie el texto dentro de una celda usando la fórmula
La siguiente fórmula puede ayudarlo a intercambiar textos dentro de una celda en Excel. Haz lo siguiente.
1. Seleccione una celda en blanco para ubicar los datos intercambiados, ingrese la fórmula en la barra de fórmulas y luego presione el botón Acceder llave. Ver captura de pantalla:
=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & " " & LEFT(A2,FIND(" ",A2)-1)
2. Seleccione la celda de resultado, luego arrastre el controlador de relleno hacia abajo para obtener el resto de resultados como se muestra a continuación.
Luego puede ver que el nombre y el apellido se intercambian en celdas específicas.
Nota: Este método solo puede intercambiar dos textos dentro de una celda que están separados por espacio.
Intercambie o cambie fácilmente el texto dentro de una celda en Excel:
El sistema Texto inverso utilidad de Kutools for Excel puede ayudarlo a intercambiar fácilmente texto dentro de una celda con cierto separador en Excel, como se muestra en la siguiente demostración.
¡Descárgalo y pruébalo ahora! (Pista gratuita de 30 días)
Intercambie o cambie el texto dentro de una celda usando el código VBA
Como se muestra en el ejemplo anterior, también puede ejecutar el siguiente script VBA para intercambiar o cambiar texto dentro de una celda.
1. presione el otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana del Módulo.
Código VBA: intercambie o cambie 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. presione el F5 clave para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, seleccione el rango con los datos que necesita intercambiar y luego haga clic en el OK botón. Ver captura de pantalla:
Luego, puede ver que los textos en las celdas de nombre especificadas se intercambian inmediatamente.
Nota: Este código también puede intercambiar dos palabras dentro de una celda que están separadas por espacio correctamente.
Intercambie o cambie fácilmente el texto dentro de una celda por Kutools para Excel
Esta sección recomienda la utilidad Orden de texto inverso de Kutools para Excel para ayudarlo a resolver fácilmente este problema. Haz lo siguiente.
1. Seleccione el rango que contiene los textos que necesita intercambiar, luego haga clic en Kutools > Texto > Orden de texto inverso. Ver captura de pantalla:
2. En el Texto inverso cuadro de diálogo, especifique un separador en el que intercambiará los textos en el Separador sección. En este caso, selecciono el Espacio opción. Y luego haga clic en el OK del botón.
Luego, puede ver que los datos en las celdas seleccionadas se intercambian en la misma celda por el separador especificado inmediatamente.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Artículo relacionado:
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!