Como remover a primeira ou a última palavra de uma cadeia de texto numa célula?
No dia a dia com o Excel, é comum trabalhar com listas ou frases que exigem a limpeza de dados textuais. Uma tarefa frequente consiste em remover a primeira ou a última palavra de uma cadeia de texto contida numa célula. Por exemplo, pode ter uma coluna com nomes completos ou descrições detalhadas, mas, para fins de análise, pretende manter apenas o texto excluindo a palavra inicial ou final. Como se ilustra na imagem abaixo, o Excel não oferece uma funcionalidade integrada e direta para esta operação. Contudo, existem vários métodos práticos — recorrendo a fórmulas, funcionalidades nativas do Excel ou código VBA — que lhe permitem alcançar este objetivo de forma eficiente. Este guia apresenta diversas abordagens para resolver essa necessidade e ajuda-o a escolher a mais adequada ao seu cenário.
Conteúdo:
- Remover a primeira ou última palavra de uma cadeia de texto com fórmulas
- Remover a primeira ou última palavra utilizando «Texto em Colunas» (método incorporado do Excel)
- Remover a primeira ou última palavra com macro VBA
Remover a primeira ou última palavra de uma cadeia de texto com fórmulas
Utilizar fórmulas do Excel é uma forma simples e sem programação de remover a primeira ou a última palavra de uma célula. Este método é ideal quando precisa de uma abordagem dinâmica que se atualize automaticamente sempre que o texto original for alterado. No entanto, tenha em atenção que estas fórmulas partem do pressuposto de que as palavras estão separadas por espaços simples e de que não existem espaços iniciais, finais ou múltiplos consecutivos no texto. Verifique o espaçamento dos seus dados antes de aplicar estas soluções.
Remover a primeira palavra da cadeia de texto:
1. Introduza esta fórmula numa célula vazia onde deseja obter o resultado (por exemplo, na célula B2):
=RIGHT(A2,LEN(A2)-FIND(" ",A2))Aqui, A2 é a célula que contém a sua cadeia de texto original. Esta fórmula localiza o primeiro espaço e remove a primeira palavra juntamente com esse espaço, devolvendo apenas o texto restante.
2. Após confirmar a fórmula, arraste a alça de preenchimento para baixo para aplicá-la às restantes células da coluna, conforme necessário. Verificará que a primeira palavra foi agora removida de cada cadeia de texto, como demonstrado:
Dicas:Se puder haver espaços extra no início do seu texto (Espaços à Frente), recomenda-se utilizar a função ARRUMARpara limpar os dados antes de aplicar a fórmula acima, por exemplo:
=RIGHT(TRIM(A2),LEN(TRIM(A2))-FIND(" ",TRIM(A2)))Isto garante que a fórmula permaneça exata, mesmo que algumas células apresentem espaçamento inconsistente.
Remover a última palavra da cadeia de texto:
Para remover a última palavra de uma célula, utilize a seguinte fórmula. Introduza-a na célula B2:
=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)Esta fórmula funciona localizando a posição do último espaço e extraindo todo o texto anterior. Certifique-se de que não existem espaços extra entre as palavras ou utilize a função ARRUMAR, conforme descrito acima. Após introduzir a fórmula, arraste a alça de preenchimento para aplicá-la ao número de linhas necessário. Todas as últimas palavras na coluna serão eliminadas, como demonstrado:
Aviso de erro: Se uma célula contiver apenas uma palavra e nenhum espaço, estas fórmulas devolverão um erro ou um valor em branco. Caso os seus dados possam incluir estes casos, pode envolver a fórmula com SEERRO para evitar erros, por exemplo:
=IFERROR(RIGHT(A2,LEN(A2)-FIND(" ",A2)),"")Remover a primeira ou última palavra utilizando «Texto em Colunas» (método incorporado do Excel)
Em alguns casos, especialmente ao processar conjuntos de dados mais curtos ou estáticos, a funcionalidade incorporada do Excel Texto em Colunas oferece uma abordagem intuitiva e visual para separar palavras. É ideal quando precisa separar rapidamente todas as palavras de uma cadeia de texto em colunas e, depois, combiná-las seletivamente — por exemplo, excluindo a primeira ou a última palavra. Embora não atualize automaticamente o texto quando a célula de origem é alterada (ou seja, não é dinâmica como as fórmulas), esta ferramenta revela-se extremamente útil para limpezas pontuais.
Passos:
- 1. Selecione a coluna que contém os seus dados de texto a dividir.
- 2. Aceda ao separador Dados e clique em Texto em Colunas.
- 3. No assistente, escolha Delimitado e, de seguida, clique em Seguinte.
- 4. Marque apenas o delimitador Espaço e clique em Seguinte.
- 5. Escolha o destino para o Dividir Dados e, depois, clique em Concluir.
- 6.Após a divisão, as colunas serão preenchidas com palavras individuais de cada célula. Para remover a primeira palavra, basta recombinar todas as colunas exceto a primeira utilizando CONCATENAR ou JUNTAR.TEXTO (se disponível). Da mesma forma, para remover a última palavra, combine todas exceto a última coluna.
Pode utilizar uma fórmula como a seguinte (assumindo que o seu Dividir Dados está agora nas colunas B, C, D para uma célula):
=CONCATENATE(C2," ",D2)Se tiver muitas colunas para juntar e possuir Excel 2016 ou posterior, utilize:
=TEXTJOIN(" ",TRUE,C2:E2)Precauções: O método Texto em Colunas sobrescreve os dados existentes à direita do intervalo selecionado se não tiver cuidado. Certifique-se sempre de que as colunas adjacentes estão vazias ou copie os seus dados para uma área em branco primeiro, como medida de segurança. Este método é mais adequado para processamentos manuais rápidos do que para atualizações automatizadas.
Análise do cenário aplicável: Ideal para operações manuais rápidas com listas curtas ou quando precisa de rever e corrigir visualmente os seus resultados. Não é adequado para grandes conjuntos de dados mutáveis em que a automação seja desejável.
Remover a primeira ou última palavra de uma cadeia de texto com macro VBA
Para operações avançadas ou repetitivas em massa — como limpeza de grandes conjuntos de dados, automatização de remoção ou tratamento de cenários complexos — uma macro VBA revela-se extremamente eficiente. Com VBA, é possível remover a primeira ou última palavra de toda uma gama de células com apenas alguns cliques. Antes de executar a macro, certifique-se de que os seus dados não contêm espaçamento anómalo nem Espaços Inseparáveis especiais, pois estes podem comprometer a precisão da divisão.
Como utilizar este código VBA:
1. Clique em Programador > Visual Basic para abrir o editor do Microsoft Visual Basic para Aplicações. Na nova janela, clique em Inserir > Módulo. Cole um dos seguintes códigos no módulo.
Remover a primeira palavra das células selecionadas:
Sub RemoveFirstWord()
Dim WorkRng As Range
Dim Rng As Range
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select range to remove first word", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If InStr(Rng.Value, " ") > 0 Then
arr = Split(Rng.Value, " ")
Rng.Value = Mid(Rng.Value, InStr(Rng.Value, " ") + 1)
End If
Next
End Sub2. Prima F5 ou clique em Executar para executar o código. A macro abre então uma caixa de diálogo para selecionar as células que pretende processar. Ao clicar em OK, as suas células serão atualizadas diretamente, removendo a primeira palavra de cada célula selecionada.
Remover a última palavra das células selecionadas:
Para remover a última palavra das células selecionadas, utilize o seguinte código VBA.
Sub RemoveLastWord()
Dim WorkRng As Range
Dim Rng As Range
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select range to remove last word", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If InStr(Rng.Value, " ") > 0 Then
arr = Split(Rng.Value, " ")
Rng.Value = Left(Rng.Value, Len(Rng.Value) - Len(arr(UBound(arr))) - 1)
End If
Next
End SubPrecauções: Estas macros removem apenas a primeira ou a última palavra separada por espaços em cada célula da sua seleção. Se uma célula contiver apenas uma palavra (sem espaços), permanecerá inalterada. Trabalhe sempre numa cópia dos seus dados ou guarde a sua pasta de trabalho antes de executar o código VBA, pois as alterações não são reversíveis.
Vantagens: O VBA permite um processamento em massa rápido e é altamente eficaz para automatizar tarefas repetitivas de limpeza, especialmente ao lidar com grandes tabelas de dados.
Resolução de problemas:Se encontrar mensagens de «erro em tempo de execução», certifique-se de que todos os valores na sua seleção estão formatados como texto. Células vazias ou com erros podem fazer com que a macro seja ignorada ou interrompida.
Independentemente do método que escolha — fórmulas, Texto em Colunas ou VBA —, verifique sempre os resultados quanto à consistência dos dados, especialmente se o texto puder conter espaços extra, pontuação ou sequências inesperadas de palavras. Faça sempre uma cópia de segurança dos seus dados originais, sempre que possível, sobretudo ao aplicar edições em massa ou macros desconhecidas. Se precisar de soluções mais flexíveis ou robustas para limpar ou dividir texto no Excel, o Kutools para Excel oferece um conjunto abrangente de utilitários capazes de resolver diversos desafios de divisão e formatação de texto sem recorrer a fórmulas complexas ou código.
Dividir valores de células em múltiplas colunas e linhas por um separador específico: Com a funcionalidade Dividir Células do Kutools para Excel, pode dividir rapidamente uma cadeia de texto numa célula em múltiplas colunas ou linhas por espaço, vírgula, nova linha ou quaisquer outros separadores que especificar.
Kutools para Excel: com mais de 300 extras úteis para Excel, experimente gratuitamente sem limitações durante 30 dias.Transfira e experimente gratuitamente já! |
Artigo relacionado:
Como remover os primeiros, últimos ou caracteres específicos de um texto no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos