¿Cómo intercambiar o cambiar el texto dentro de una celda en Excel?

En muchos casos, puede que necesites intercambiar el texto dentro de una sola celda por algún motivo. Por ejemplo, si una celda contiene el nombre Smith John, necesitas 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.

Intercambiar o cambiar el texto dentro de una celda usando fórmulas
Intercambiar o cambiar el texto dentro de una celda utilizando código VBA
Intercambia o cambia fácilmente el texto dentro de una celda con Kutools para Excel>

Intercambiar o cambiar el texto dentro de una celda usando fórmulas

La siguiente fórmula te ayudará a intercambiar textos dentro de una celda en Excel. Por favor, sigue los siguientes pasos.

1. Selecciona una celda en blanco para colocar los datos intercambiados, introduce la fórmula en la Barra de fórmulas (F), y luego presiona la tecla Enter. Ver captura de pantalla:

=DERECHA(A2,LARGO(A2)-ENCONTRAR(" ",A2)) & " " & IZQUIERDA(A2,ENCONTRAR(" ",A2)-1)

2. Selecciona la celda del resultado, luego arrastra el controlador de relleno hacia abajo para obtener el resto de los resultados como se muestra en la siguiente captura de pantalla.

Luego puedes ver que el nombre y el apellido se han intercambiado en las celdas especificadas.

Nota: Este método solo puede intercambiar dos textos dentro de una celda que estén separados por un espacio.

Intercambiar o cambiar el texto dentro de una celda utilizando código VBA

Como se muestra en el ejemplo anterior, también puedes ejecutar el siguiente script VBA para intercambiar o cambiar el texto dentro de una celda.

1. Presiona 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, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Intercambiar o cambiar 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 Sub

3. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente de Kutools para Excel, selecciona el rango con los datos que necesitas intercambiar, y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Luego puedes ver que los textos en las celdas de nombres especificadas se intercambian inmediatamente.

Nota: Este código también puede intercambiar correctamente dos palabras dentro de una celda que estén separadas por un espacio.

Intercambia o cambia fácilmente el texto dentro de una celda con Kutools para Excel

Esta sección recomienda la utilidad Invertir Orden de Texto de Kutools para Excel para ayudarte a resolver fácilmente este problema. Por favor, sigue los siguientes pasos.

1. Selecciona el rango que contiene los textos que necesitas intercambiar, luego haz clic en Kutools > Texto > Invertir Orden de Texto. Ver captura de pantalla:

2. En el cuadro de diálogo Invertir Texto, especifica un separador en base al cual intercambiarás los textos en la sección Separador. En este caso, selecciono la opción Espacio. Luego haz clic en el botón Aceptar.

Luego puedes ver que los datos en las celdas seleccionadas se intercambian en la misma celda mediante el separador especificado de inmediato.

Artículo relacionado:

• ¿Cómo intercambiar o invertir el día y el mes de una fecha en Excel?