Extraia a enésima palavra da string de texto no Excel

Se você tiver uma lista de strings de texto ou sentenças, agora, você deseja extrair a enésima palavra específica da lista, conforme a imagem mostrada abaixo. Neste artigo, vou apresentar alguns métodos para resolver este trabalho no Excel.

• Extraia e obtenha a enésima palavra da string de texto com a fórmula
• Extraia e obtenha a enésima palavra da string de texto com a função definida pelo usuário
• Extraia e obtenha a enésima palavra da string de texto com um recurso poderoso

---

Extraia e obtenha a enésima palavra da string de texto com a fórmula

Para lidar com esta tarefa, você pode usar uma fórmula que combina as funções TRIM, MID, SUBSTITUTE, REPT e LEN. A sintaxe genérica é:

• string: A string de texto ou valor da célula da qual você deseja extrair uma palavra.
• N: O número da palavra que você deseja extrair.

1. Insira ou copie a seguinte fórmula em uma célula em branco:

Nota: Na fórmula acima, A2 é a célula que contém a string de texto que você deseja usar, B2 é o número da palavra que você deseja extrair, ele também pode ser inserido como um número.

2. Em seguida, arraste a alça de preenchimento até as células para aplicar esta fórmula, e todas as enésimas palavras específicas foram extraídas como mostrado a seguir na captura de tela:

---

Explicação da fórmula:

• 1. SUBSTITUIR (A2, "", REPT ("", LEN (A2))):
• REPT ("", LEN (A2): Esta função REPT é usada para repetir o caractere de espaço por um número específico de vezes que é o comprimento do texto da célula A2, isso receberá um número de caracteres de espaço;
• SUBSTITUIR (A2, "", REPT ("", LEN (A2))): A função SUBSTITUTE substituirá cada caractere de espaço na célula A2 por muitos caracteres de espaço retornados pela função REPT, o que obterá uma string de texto com vários espaços entre cada palavra.
• Esta parte é reorganizada como o argumento de texto na função MID.
• 2. (B2-1)*LEN(A2)+1: Esta fórmula retornará a posição inicial da enésima palavra da string de texto na célula A2. É o argumento start_num da função MID.
• 3. MEIO (SUBSTITUIR (A2, "", REPT ("", LEN (A2))), (B2-1) * LEN (A2) +1, LEN (A2)): Esta função MID extrai a enésima palavra da string de texto na célula A2 com base nos argumentos que são retornados pelas fórmulas acima.
• 4. TRIM (): Esta função TRIM remove todos os caracteres de espaço extras entre as palavras.

---

---

Extraia e obtenha a enésima palavra da string de texto com a função definida pelo usuário

Se a fórmula acima é um pouco difícil para você entender, aqui vou apresentar uma Função Definida pelo Usuário, com o código abaixo, você também pode extrair a enésima palavra de uma string de texto. Faça o seguinte:

1. aperte o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo, copie e cole o código a seguir na janela 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, salve e feche o módulo de código, insira esta fórmula: = encontrar palavra (A2, B2) em uma célula em branco onde você deseja produzir o resultado:

Nota: Nesta fórmula, A2 é a célula que contém a string de texto que você deseja usar, B2 é o número da palavra que você deseja extrair, ele também pode ser inserido como um número.

4. Em seguida, arraste a fórmula para outras células para obter o resultado que você precisa, veja a captura de tela:

---

Extraia e obtenha a enésima palavra da string de texto com um recurso poderoso

---

Funções relativas usadas:

---

Mais artigos: