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 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 Sub

3. 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.

Artigo relacionado:

• Como trocar ou inverter dia e mês de uma data no Excel?