¿Cómo reorganizar el texto en una celda en Excel?

Supongamos que tienes una hoja de cálculo con una larga lista de nombres formateados como “Apellido Nombre”, y ahora necesitas reorganizar todos los nombres a “Nombre, Apellido”. ¿Cómo puedes lograr esto? Este artículo introduce tres métodos para resolver el problema.

Reorganizar texto en una celda con fórmula
Reorganizar texto en una celda con código VBA
Reorganizar rápidamente texto en una celda con Kutools para Excel

Reorganizar texto en una celda con fórmula

La siguiente fórmula puede ayudarte a intercambiar el apellido y el nombre en una celda en Excel. Por favor, haz lo siguiente.

1. Selecciona una celda en blanco para mostrar el texto reorganizado, introduce la siguiente fórmula en ella y luego presiona la tecla Enter.

=TRIM(MID(b2;SEARCH(" ";b2)+1;250))&" "&LEFT(b2;SEARCH(" ";b2)-1)

Nota: en la fórmula, B2 es la celda que contiene el nombre que deseas reorganizar. Cambia esto según sea necesario.

2. Mantén seleccionada la celda del resultado, arrastra el controlador de relleno hacia abajo para intercambiar todos los nombres como se muestra en la captura de pantalla a continuación.

Reorganizar texto en una celda con código VBA

Además, puedes aplicar el siguiente código VBA para intercambiar todos los nombres en una lista de una vez en Excel. Por favor, haz lo siguiente.

1. Presiona las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. En la ventana Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia el siguiente código VBA en la ventana del Módulo.

Código VBA: Reorganizar texto en una celda

Sub RearrangeText() 
'Updated by Extendoffice 20180503
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. Luego aparecerá un cuadro de diálogo de Kutools para Excel, selecciona la lista de nombres que deseas reorganizar y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Luego todas las entradas “Apellido Nombre” en la lista seleccionada se intercambian inmediatamente.

Reorganizar rápidamente texto en una celda con Kutools para Excel

Esta sección presentará la utilidad Invertir Orden de Texto de Kutools para Excel para ayudarte a reorganizar el texto en una celda.

1. Selecciona la lista de nombres donde quieres intercambiar “Apellido Nombre”, luego haz clic en Kutools > Texto > Invertir Orden de Texto. Ver captura de pantalla:

2. En el cuadro de diálogo Invertir Texto, selecciona la opción Espacio y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Luego todos los nombres en la lista seleccionada se reorganizan de una vez.

Artículos relacionados:

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