Suponha que você tenha uma planilha com uma longa lista de nomes que formata todos como “Sobrenome Nome”, e agora você precisa reorganizar todos os nomes para “Nome, Sobrenome”. Como conseguir isso? Este artigo apresentará três métodos para ajudá-lo a resolver o problema.
Reorganizar o texto em uma célula com fórmula
Reorganizar o texto em uma célula com o código VBA
Reorganize rapidamente o texto em uma célula com o Kutools para Excel
A fórmula abaixo pode ajudá-lo a inverter o sobrenome e o nome em uma célula no Excel. Faça o seguinte.
1. Selecione uma célula em branco para produzir 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)
Importante: na fórmula, B2 é a célula que contém o nome que você irá reorganizar. Por favor, mude de acordo com sua necessidade.
2. Continue selecionando a célula de resultado, arraste a alça de preenchimento para baixo para virar todos os nomes conforme a imagem mostrada abaixo.
Reorganize facilmente o texto em uma célula no Excel:
A Texto reverso utilidade de Kutools for Excel pode ajudá-lo a trocar texto facilmente em uma célula por determinado separador no Excel. Veja a imagem abaixo:
Baixe e experimente! (Trilha livre de 30 dias)
Além disso, você pode aplicar o código VBA abaixo para inverter todos os nomes em uma lista de uma vez no Excel. Faça o seguinte.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VAB abaixo para a janela Módulo.
Código VBA: reorganizar o 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. Então um Kutools for Excel caixa de diálogo aparece, selecione a lista de nomes que deseja reorganizar e clique no botão OK botão. Veja a imagem:
Então, todos os “Sobrenome Nome” na lista selecionada são invertidos imediatamente.
Esta seção irá apresentar o Ordem reversa do texto utilidade de Kutools for Excel para ajudá-lo a reorganizar o texto em uma célula.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Selecione a lista de nomes que você inverterá para "Sobrenome Nome" e clique em Kutools > Texto > Ordem reversa do texto. Veja a imagem:
2. No Texto reverso caixa de diálogo, selecione o Espaço opção e, em seguida, clique no botão OK botão. Veja a imagem:
Em seguida, todos os nomes na lista selecionada são reorganizados de uma vez.
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
