Faixa de pesquisa de palavras na faixa de sentenças

Baseado no seguinte exemplo:

Eu quero procurar por palavras do $D$2:$D$6 variam em frases do $A$2:$A$8 alcance e use o valor da coluna lateral (aqui Tag ). Até agora estou fazendo isso:

B2 formula
------------------
=IF(NOT(ISERROR(SEARCH($D$2,A2))),$E$2,
IF(NOT(ISERROR(SEARCH($D$3,A2))),$E$3,
IF(NOT(ISERROR(SEARCH($D$4,A2))),$E$4,
IF(NOT(ISERROR(SEARCH($D$5,A2))),$E$5,
IF(NOT(ISERROR(SEARCH($D$6,A2))),$E$6,
"other"
)
)
)
)
)

Embora isso funcione, minha fórmula é tão longa quanto o número de palavras de pesquisa que tenho, ao passo que eu gostaria de usar um intervalo para torná-lo mais limpo e fácil de manter (por exemplo, se adicionar uma palavra de pesquisa, preciso adicionar uma IF declaração para essa palavra na minha fórmula).

Existe uma maneira de replicar a solução acima com uma fórmula baseada em intervalo?

Você pode usar essa fórmula comum em B2 copiada

=LOOKUP(2^15,SEARCH(D$2:D$6,A2),E$2:E$6)

Veja a discussão e mais sobre essa fórmula Aqui

Você precisa usar a fórmula de matriz. Na célula B2, digite:

=IFERROR(OFFSET($E$1,MATCH(1E+37,SEARCH(D$2:D$6,A2),1),0),"other")

e pressione Ctrl + Shift + Enter para inseri-lo como uma fórmula de matriz.

Ele usa o SEARCH função para coincidir com cada palavra em sua lista, e encontra o último que é menor que um "grande número" (aqui 1E + 37). Se houver mais de uma correspondência, ela encontrará a que estiver mais abaixo na lista (por exemplo, "um carro vermelho e um gato preto" retornará "objeto"). Caso nenhum seja encontrado, o IFERROR bit lhe dá "outro".

Claro, você terá que estendê-lo à medida que sua lista ficar mais longa. (Lembre-se sempre de Ctrl + Shift + Enter quando você edita!

Para resolver isso eu usei alguns VBA em um botão habilitado para macro na página chamada 'Atualizar' para que você pudesse acrescentar a folha como necessária;

Private Sub CommandButton1_Click()
Dim Target, cell As Range
Set Target = Range(Range("A1"), Range("A65536").End(xlUp))

    Dim term, tag As String

        term = "cat"
        tag = "animal"
        For Each cell In Target
            If InStr(1, cell, term, 1) Then cell.Offset(0, 1).Value = tag
        Next cell

        term = "dog"
        tag = "animal"
        For Each cell In Target
            If InStr(1, cell, term, 1) Then cell.Offset(0, 1).Value = tag
        Next cell

        i = "car"
        k = "object"
        For Each cell In Target
            If InStr(1, cell, term, 1) Then cell.Offset(0, 1).Value = tag
        Next cell

        term = "plane"
        tag = "object"
        For Each cell In Target
            If InStr(1, cell, term, 1) Then cell.Offset(0, 1).Value = tag
        Next cell

        term = "sister"
        tag = "person"
        For Each cell In Target
            If InStr(1, cell, term, 1) Then cell.Offset(0, 1).Value = tag
        Next cell

    End Sub

O formato básico de;

term= "cat"
tag = "animal"
For Each cell In Target
    If InStr(1, cell, i, 1) Then cell.Offset(0, 1).Value = k
Next cell

Pode ser copiado e os valores de variáveis ​​de termo e tag alterados para qualquer termo de pesquisa e tags que você desejar, sem precisar existir na planilha.

Também é importante notar que sua equação IF está usando um negativo duplo, você pode usar IF (SEARCH em vez de IF (NOT (ISERROR (SEARCH).