Como trocar ou alternar o texto dentro de uma célula no Excel?
Em muitos casos, você pode precisar trocar o texto em uma única célula por algum motivo. Por exemplo, uma célula contém um nome Smith John, e você precisa trocar os textos dentro da célula para mudar o nome para John Smith. Este artigo lista alguns métodos para resolver esse problema.
Troque ou alterne o texto dentro de uma célula usando fórmula
Troque ou alterne o texto dentro de uma célula usando código VBA
Troque ou alterne facilmente o texto dentro de uma célula com o Kutools para Excel>
Troque ou alterne o texto dentro de uma célula usando fórmula
A fórmula abaixo pode ajudá-lo a trocar textos dentro de uma célula no Excel. Por favor, faça o seguinte.
1. Selecione uma célula em branco para localizar os dados trocados, insira a fórmula na Barra de Fórmulas e, em seguida, pressione a tecla Enter. Veja a captura de tela:
=DIREITA(A2;NÚM.CARACT(A2)-LOCALIZAR(" ";A2)) & " " & ESQUERDA(A2;LOCALIZAR(" ";A2)-1)
2. Selecione a célula de resultado, depois arraste a Alça de Preenchimento para baixo para obter os resultados restantes como mostrado na captura de tela abaixo.
Então você pode ver que o primeiro nome e o sobrenome foram trocados nas células especificadas.
Observação: Esse método só pode trocar dois textos dentro de uma célula que são separados por espaço.
Troque ou alterne facilmente o texto dentro de uma célula no Excel:
O Inverter Texto utilitário do Kutools para Excel pode ajudá-lo a trocar facilmente o texto dentro de uma célula por um determinado separador no Excel, conforme mostrado na demonstração abaixo.
Baixe e experimente agora! (30-dia de teste grátis)
Troque ou alterne o texto dentro de uma célula usando código VBA
Como mostrado no exemplo acima, você também pode executar o seguinte script VBA para trocar ou alternar o texto dentro de uma célula.
1. Pressione simultaneamente 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 e cole o código VBA abaixo na janela Módulo.
Código VBA: Troque ou alterne o texto dentro de uma célula
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 Sub3. Pressione a tecla F5 para executar o código. No diálogo Kutools for Excel que aparece, selecione o intervalo com os dados que você precisa trocar e, em seguida, clique no botão OK. Veja a captura de tela:
Então você pode ver que os textos nas células de nome especificadas são trocados imediatamente.
Observação: Este código também pode trocar corretamente duas palavras dentro de uma célula que são separadas por espaço.
Troque ou alterne facilmente o texto dentro de uma célula com o Kutools para Excel
Esta seção recomenda o utilitário Inverter Ordem de Texto do Kutools para Excel para ajudá-lo a resolver facilmente este problema. Por favor, faça o seguinte.
1. Selecione o intervalo que contém os textos que você precisa trocar, depois clique em Kutools > Texto > Inverter Ordem de Texto. Veja a captura de tela:
2. No diálogo Inverter Texto, especifique um separador com base no qual você trocará os textos na seção Separador. Neste caso, eu seleciono a opção Espaço. E então clique no botão OK.
Então você pode ver que os dados nas células selecionadas são trocados na mesma célula pelo separador especificado imediatamente.
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com as etapas acima.
Artigo relacionado:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins