Como remover a primeira / última palavra de uma sequência de texto em uma célula?
No trabalho diário com o Excel, é comum gerenciar listas ou frases onde você precisa limpar dados de texto. Uma tarefa frequente é remover a primeira ou a última palavra de uma sequência de texto dentro de uma célula. Por exemplo, você pode ter uma coluna de nomes completos ou descrições detalhadas, mas para análise, só quer manter tudo exceto a palavra inicial ou final. Como mostrado na captura de tela abaixo, o Excel não oferece um recurso direto e embutido para essa operação. No entanto, existem vários métodos práticos que você pode usar para realizar isso de forma eficiente, incluindo fórmulas, recursos do Excel e código VBA. Este guia apresenta várias abordagens para resolver esse problema e ajuda você a escolher a mais adequada para diferentes cenários.
Conteúdo:
- Remover a primeira ou última palavra de uma sequência de texto com fórmulas
- Remover a primeira ou última palavra usando “Texto em Colunas” (Método Embutido do Excel)
- Remover a primeira ou última palavra com Macro VBA
Remover a primeira ou última palavra de uma sequência de texto com fórmulas
Usar fórmulas do Excel oferece uma maneira simples e sem código para remover a primeira ou última palavra de uma célula. Este método é adequado quando você precisa de uma abordagem dinâmica que se atualiza automaticamente se o texto original mudar. No entanto, observe que essas fórmulas assumem que as palavras são separadas por espaços únicos e que não há espaços à esquerda, à direita ou múltiplos consecutivos no texto. Confirme o espaçamento dos seus dados antes de aplicar essas soluções.
Remova a primeira palavra da sequência de texto:
1. Insira esta fórmula em uma célula em branco onde você deseja colocar o resultado (por exemplo, célula B2):
=RIGHT(A2,LEN(A2)-FIND(" ",A2))Aqui, A2 é a célula contendo sua sequência de texto original. Esta fórmula localiza o primeiro espaço e remove a primeira palavra junto com o espaço, retornando apenas o texto restante.
2. Após confirmar a fórmula, arraste a alça de preenchimento para baixo para aplicá-la a outras células na coluna conforme necessário. Você notará que a primeira palavra foi removida de cada sequência de texto como mostrado:
Dicas: Se houver espaços extras no início do seu texto (espaços iniciais), é recomendável usar a função TRIM para limpar os dados antes de aplicar a fórmula acima, por exemplo:
=RIGHT(TRIM(A2),LEN(TRIM(A2))-FIND(" ",TRIM(A2)))Isso garante que a fórmula permaneça precisa mesmo que algumas células tenham espaçamento inconsistente.
Remova a última palavra da sequência de texto:
Para remover a última palavra de uma célula, use a seguinte fórmula. Insira-a em uma célula como 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 antes dele. Certifique-se de que não há espaços extras entre as palavras, ou use a função TRIM conforme acima. Depois de inserir 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 excluídas conforme demonstrado:
Alerta de erro: Se uma célula contiver apenas uma palavra e nenhum espaço, essas fórmulas retornarão um erro ou um valor em branco. Se seus dados puderem incluir tais casos, você pode envolver a fórmula com IFERROR para evitar erros, por exemplo:
=IFERROR(RIGHT(A2,LEN(A2)-FIND(" ",A2)),"")Remova a primeira ou última palavra usando “Texto em Colunas” (Método Embutido do Excel)
Em alguns casos, especialmente ao processar conjuntos de dados mais curtos ou estáticos, o recurso Texto em Colunas do Excel pode fornecer uma abordagem intuitiva e visual para separar as palavras. Essa abordagem é ideal quando você deseja rapidamente separar todas as palavras de uma sequência de texto em colunas e depois combiná-las novamente (deixando de fora a primeira ou última palavra). Embora ele não atualize automaticamente o texto quando a célula de origem muda (não é dinâmico como fórmulas), pode ser bastante útil para limpezas rápidas.
Passos:
- 1. Selecione a coluna contendo seus dados de texto para dividir.
- 2. Vá para a aba Dados e clique em Texto em Colunas.
- 3. No assistente, escolha Delimitado e clique em Próximo.
- 4. Marque apenas o delimitador Espaço e clique em Próximo.
- 5. Escolha o destino para os dados divididos e 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 combinar todas as colunas, exceto a primeira, usando CONCATENAR ou TEXTJOIN (se disponível). Da mesma forma, para remover a última palavra, combine todas, exceto a última coluna.
Você pode usar uma fórmula como a seguinte (presumindo que os dados divididos agora estão nas colunas B, C, D para uma célula):
=CONCATENATE(C2," ",D2)Se você tiver muitas colunas para unir, e estiver utilizando o Excel 2016 ou posterior, use:
=TEXTJOIN(" ",TRUE,C2:E2)Cuidados: O método Texto em Colunas sobrescreve os dados existentes à direita do intervalo selecionado se você não for cuidadoso. Sempre certifique-se de que as colunas adjacentes estão vazias, ou copie seus dados para uma área em branco primeiro para segurança. Este método é mais adequado para processamentos rápidos e manuais em vez de atualizações automáticas.
Análise de Cenário Aplicável: Ótimo para operações rápidas e manuais com listas curtas ou quando você precisa revisar visualmente e corrigir seus resultados. Não é adequado para grandes conjuntos de dados mutáveis onde a automação é desejável.
Remova a primeira ou última palavra da sequência de texto com Macro VBA
Para operações avançadas ou repetitivas em massa – como limpar grandes conjuntos de dados, automatizar a remoção ou lidar com cenários complexos – uma macro VBA é muito eficiente. O VBA permite que você remova a primeira ou última palavra de uma faixa inteira de células em poucos cliques. Antes de executar a macro, certifique-se de que seus dados não contenham espaçamento anormal ou espaços especiais não quebráveis, pois isso pode afetar a precisão da divisão.
Como usar este código VBA:
1. Clique em Desenvolvedor > Visual Basic para abrir o editor Microsoft Visual Basic for Applications. Na nova janela, clique em Inserir > Módulo. Cole um dos códigos a seguir no Módulo.
Remova 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. Pressione F5 ou clique em Executar para executar o código. A macro então exibe uma caixa de diálogo para você selecionar as células que deseja processar. Clicar em OK atualizará suas células diretamente removendo a primeira palavra de cada célula selecionada.
Remova a última palavra das células selecionadas:
Para remover a última palavra das células selecionadas, aplique 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: Essas macros removem apenas a primeira ou última palavra separada por espaços em cada célula da sua seleção. Se uma célula contiver apenas uma palavra (nenhum espaço), essa célula permanece inalterada. Sempre trabalhe em uma cópia dos seus dados ou salve 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 processamento em massa rápido e é altamente eficaz para automatizar tarefas repetitivas de limpeza, especialmente ao manipular grandes tabelas de dados.
Solução de problemas: Se você encontrar mensagens de "Erro de tempo de execução", certifique-se de que todos os valores na sua seleção estão formatados como texto. Células em branco ou com erro podem fazer com que a macro pule ou pare.
Para qualquer método que você escolher — fórmulas, Texto em Colunas ou VBA — é recomendável sempre verificar seus resultados quanto à consistência dos dados, especialmente quando o texto pode incluir espaços extras, pontuação ou sequências de palavras inesperadas. Faça backup dos seus dados originais sempre que possível, especialmente ao aplicar edições em massa ou macros desconhecidas. Se você 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 que lidam com uma variedade de desafios de divisão de texto e formatação sem fórmulas ou código complexos.
Divida os valores da célula em várias colunas e linhas por separador específico: Com o utilitário Dividir Células do Kutools para Excel, você pode rapidamente dividir a sequência de texto em uma célula em várias colunas ou linhas por espaço, vírgula, nova linha e quaisquer outros separadores especificados.
Kutools para Excel: com mais de300 suplementos úteis para o Excel, grátis para testar sem limitação por30 dias. Faça o download e teste gratuitamente agora! |
Artigo relacionado:
Como remover os primeiros, últimos ou certos caracteres de um texto no Excel?
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