Como extrair a primeira, a última ou a enésima palavra de uma cadeia de texto no Excel?

Se precisar de extrair a primeira palavra de uma lista de cadeias de texto, as fórmulas seguintes podem ajudá-lo.

Para extrair a primeira palavra, insira a fórmula abaixo numa célula vazia e, de seguida, arraste a pega de autorreenchimento para o intervalo pretendido.

=IF(ISERR(FIND(« »,A2)),«»,LEFT(A2,FIND(« »,A2)-1))

Para extrair a última palavra de cada célula, aplique esta fórmula:

=IF(ISERR(FIND(« »,A2)),«»,RIGHT(A2,LEN(A2)-FIND(«*»,SUBSTITUTE(A2,« »,«*»,LEN(A2)-LEN(SUBSTITUTE(A2,« »,«»))))))

E agora verá que a primeira ou a última palavra foi extraída de cada célula.

Notas: Nas fórmulas acima, A2 indica a célula da qual irá extrair a primeira ou a última palavra.

Difícil memorizar fórmulas longas e complicadas? Uma ferramenta incrível ajuda-o a extrair a enésima palavra com apenas alguns cliques!

As fórmulas longas acima só conseguem extrair a primeira e a última palavra, sendo inúteis para obter uma enésima palavra específica — como a segunda, a sexta, etc. Mesmo que encontre fórmulas capazes de resolver esse problema, certamente serão demasiado complexas para memorizar e aplicar. Para uma solução verdadeiramente simples, recomendamos a funcionalidade **Extrair a enésima palavra de uma célula** do Kutools para Excel, que lhe permite extrair qualquer palavra com a máxima facilidade!

Se pretender extrair a segunda, terceira ou qualquer enésima palavra de uma cadeia de texto, pode criar uma função personalizada para o efeito.

1. Mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

1. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.

Function FindWord(Source As String, Position As Integer)
'Update 20131202
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

3. Em seguida, guarde o código. Neste exemplo, vamos obter a terceira palavra da cadeia, por isso introduza a fórmula =findword(A2,3) numa célula vazia B2 e, depois, arraste a pega de autorreenchimento dessa célula para o intervalo pretendido. Veja a imagem:

Nota: Na fórmula acima, A2 é a célula da qual pretende extrair a palavra; o número 3 indica a terceira palavra da cadeia que será extraída, podendo alterá-los conforme necessário.

Este método utiliza a funcionalidade Dividir Células do Kutools para Excel para extrair cada palavra de células contendo cadeias de texto e, em seguida, listar as palavras extraídas horizontal ou verticalmente, conforme necessário.

1. Selecione as células com as cadeias de texto das quais pretende extrair as palavras e clique em Kutools > Mesclar e Dividir > Dividir Células.

2. Na caixa de diálogo Dividir Células aberta, especifique o tipo de divisão na secção Tipo, marque a opção Espaço na secção Separador e clique no botão Ok. Veja a imagem:

3. Agora, defina o intervalo de destino onde pretende colocar as palavras extraídas e clique no botão OK.

Se marcar a opção Dividir em Colunas na caixa de diálogo Dividir Células acima, cada palavra será extraída de cada cadeia de texto e listada verticalmente.

Se marcar a opção Dividir em Linhas na caixa de diálogo Dividir Células acima, cada palavra será extraída de cada cadeia de texto e listada horizontalmente.

Se tiver o Kutools para Excel instalado, pode utilizar a funcionalidade **Assistente de Fórmulas > Extrair a enésima palavra de uma célula** para extrair rapidamente e com facilidade a enésima palavra da célula especificada.

1. Selecione a célula onde pretende inserir a palavra extraída e clique em Kutools > Assistente de Fórmulas > Assistente de Fórmulas para ativar esta funcionalidade.

2. Na caixa de diálogo Assistente de Fórmulas, proceda da seguinte forma:
(1) Selecione Texto na lista suspensa Tipo de Fórmula;
(2) Clique para realçar Extrair a enésima palavra de uma célula na caixa de listagem Selecione uma fórmula;
(3) Na caixa Célula, especifique a célula da qual irá extrair a palavra;
(4) Em A enésima, especifique o número.

3. Clique no botão Ok. Se necessário, arraste a pega de autorreenchimento da célula que contém a fórmula e copie-a para outras células.