Como reorganizar o texto em uma célula no Excel?

Suponha que você tenha uma planilha com uma longa lista de nomes formatados como “Sobrenome Nome”, e agora você precisa reorganizar todos os nomes para “Nome, Sobrenome”. Como você pode alcançar isso? Este artigo apresenta três métodos para resolver o problema.

Reorganizar texto em uma célula com fórmula
Reorganizar texto em uma célula com código VBA
Rearranje rapidamente o texto em uma célula com Kutools para Excel

Reorganizar texto em uma célula com fórmula

A fórmula abaixo pode ajudá-lo a inverter sobrenome e nome em uma célula no Excel. Por favor, faça o seguinte.

1. Selecione uma célula em branco para exibir o texto reorganizado, insira a fórmula abaixo nela e pressione a tecla Enter.

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

Observação: na fórmula, B2 é a célula que contém o nome que você deseja reorganizar. Altere-a conforme necessário.

2. Continue selecionando a célula de resultado, arraste a Alça de Preenchimento para baixo para inverter todos os nomes, conforme mostrado na captura de tela abaixo.

Reorganizar texto em uma célula com código VBA

Além disso, você pode aplicar o código VBA abaixo para inverter todos os nomes em uma lista de uma só vez no Excel. Por favor, faça o seguinte.

1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela Módulo.

Código VBA: Reorganizar texto em uma célula

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. Em seguida, uma caixa de diálogo Kutools para Excel aparece, selecione a lista de nomes que deseja reorganizar e clique no botão OK. Veja a captura de tela:

Todos os registros “Sobrenome Nome” na lista selecionada são invertidos imediatamente.

Rearranje rapidamente o texto em uma célula com Kutools para Excel

Esta seção apresentará o utilitário Inverter Ordem de Texto do Kutools para Excel para ajudá-lo a reorganizar o texto em uma célula.

1. Selecione a lista de nomes que deseja inverter “Sobrenome Nome”, depois clique em Kutools > Texto > Inverter Ordem de Texto. Veja a captura de tela:

2. Na caixa de diálogo Inverter Texto, selecione a opção Espaço e clique no botão OK. Veja a captura de tela:

Todos os nomes na lista selecionada são reorganizados de uma vez.

Artigos relacionados:

• Como trocar ou inverter dia e mês de uma data no Excel?
• Como trocar ou alternar o texto dentro de uma célula no Excel?