Extrair a enésima palavra de uma cadeia de texto no Excel

Se tiver uma lista de cadeias de texto ou frases e quiser extrair a enésima palavra de cada uma, como ilustrado na imagem abaixo, este artigo apresenta alguns métodos para realizar essa tarefa no Excel.

• Extrair e obter a enésima palavra de uma cadeia de texto com fórmula
• Extrair e obter a enésima palavra de uma cadeia de texto com Função Definida pelo Utilizador
• Extrair e obter a enésima palavra de uma cadeia de texto com uma funcionalidade poderosa

Extrair e obter a enésima palavra de uma cadeia de texto com fórmula

Para executar esta tarefa, utilize uma fórmula que combina as funções ESPAÇOS, EXT.TEXTO, SUBSTITUIR, REPETIR e NÚM.CARACT. A sintaxe genérica é:

• stringA cadeia de texto ou valor da célula a partir da qual pretende extrair uma palavra.
• NO número da palavra que pretende extrair.

1. Introduza ou copie a seguinte fórmula para uma célula vazia:

Nota: Na fórmula acima, A2 é a célula que contém a cadeia de texto que pretende utilizar e B2 é o número da palavra que pretende extrair — podendo também ser introduzido diretamente como um número.

2. Em seguida, arraste a alça de preenchimento para as células abaixo para aplicar esta fórmula e todas as enésimas palavras específicas serão extraídas, conforme ilustrado na imagem seguinte:

Explicação da fórmula:

• 1. SUBSTITUIR(A2;« »;REPT(« »;LEN(A2))):
• REPETIR(« »;LEN(A2): Esta função REPETIR é utilizada para repetir o carácter de espaço um número específico de vezes, que corresponde ao Comprimento do texto da célula A2, obtendo assim vários caracteres de espaço;
• SUBSTITUIR(A2;« »;REPT(« »,LEN(A2))): A função SUBSTITUIR substitui cada espaço na célula A2 por múltiplos espaços gerados pela função REPETIR, criando uma cadeia de texto com vários espaços entre cada palavra.
• Esta parte é reorganizada como o argumento texto da função EXT.TEXTO.
• 2. (B2-1)*LEN(A2)+1:Esta fórmula devolve a posição inicial da enésima palavra na cadeia de texto da célula A2, correspondendo ao argumento núm_início da função EXT.TEXTO.
• 3. MID(SUBSTITUTE(A2,« »,REPT(« »,LEN(A2))), (B2-1)*LEN(A2)+1, LEN(A2)):Esta fórmula EXT.TEXTO extrai a enésima palavra da cadeia de texto na célula A2 com base nos argumentos devolvidos pelas fórmulas acima.
• 4. TRIM(): Esta função remove todos os espaços extra entre as palavras.

Extrair e obter a enésima palavra de uma cadeia de texto com Função Definida pelo Utilizador

Se a fórmula acima lhe parecer um pouco difícil de compreender, apresentamos-lhe agora uma Função Definida pelo Utilizador. Com o código abaixo, poderá também extrair a enésima palavra de uma cadeia de texto. Siga estes passos:

1. Prima as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

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

Function FindWord(Source As String, Position As Integer)
'Update by Extendoffice
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 e feche o módulo de código e introduza esta fórmula: =findword(A2,B2) numa célula vazia onde pretende obter o resultado:

Nota: Nesta fórmula, A2 é a célula que contém a cadeia de texto que pretende utilizar e B2 é o número da palavra que pretende extrair — podendo este também ser introduzido diretamente como um número.

4. Em seguida, arraste a fórmula para as outras células para obter o resultado pretendido, conforme ilustrado:

Extrair e obter a enésima palavra de uma cadeia de texto com uma funcionalidade poderosa

Funções relacionadas utilizadas:

Mais artigos: