Como reorganizar o texto em uma célula no Excel?
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
Reorganizar o texto em uma célula com fórmula
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)
Note: 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 gratuita de 30 dias)
Reorganizar o texto em uma célula com o código VBA
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.
Reorganize rapidamente o texto em uma célula com o Kutools para Excel
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.
Artigos relacionados:
- Como trocar ou reverter dia e mês da data no Excel?
- Como trocar ou trocar texto dentro de uma célula no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!