Como procurar um valor e retornar múltiplos valores correspondentes no Excel?

Este tutorial discute como procurar um valor e retornar múltiplos valores correspondentes no Excel, conforme mostrado nas capturas de tela abaixo:
Procurar valor e retornar múltiplos valores correspondentes com fórmula de matriz
Procurar valor e retornar múltiplos valores correspondentes com Filtro
Procurar valor e retornar múltiplos valores correspondentes com Função Definida
Procurar valor e retornar múltiplos valores correspondentes com fórmula de matriz
Aqui está uma longa fórmula de matriz que pode ajudar a procurar um valor e retornar múltiplos valores correspondentes.
1. Insira o valor que deseja procurar em uma célula em branco. Veja a captura de tela:
2. Na célula adjacente, digite esta fórmula =SE(ÉERRO(ÍNDICE($A$1:$B$7,MENOR(SE($A$1:$A$7=$D$4,LIN($A$1:$A$7)),LIN(1:1)),2)),"",
ÍNDICE($A$1:$B$7,MENOR(SE($A$1:$A$7=$D$4,LIN($A$1:$A$7)),LIN(1:1)),2)) nela, e pressione Shift + Ctrl + Enter juntas, depois arraste o Auto Preenchimento para preencher as células até que a primeira célula em branco apareça. Veja a captura de tela:
Observação: Na fórmula acima, $A$1:$B$7 indica o intervalo de dados, $A$1:$A$7 representa o intervalo da coluna onde você procura determinado valor, $D$4 indica a célula onde você digitou o valor de pesquisa na etapa 1, 2 indica encontrar os valores correspondentes na segunda coluna.
Procurar valor e retornar múltiplos valores correspondentes com Filtro
No Excel, você também pode usar o recurso Filtro para resolver este problema.
1. Selecione o intervalo da coluna onde deseja procurar o valor e clique em Dados > Filtro. Veja a captura de tela:
2. Em seguida, clique no botão de seta na primeira célula do intervalo selecionado e marque o valor que deseja procurar apenas na lista suspensa. Veja a captura de tela:
3. Clique em OK, agora você verá apenas o valor de pesquisa e seus valores correspondentes filtrados.
Procurar valor e retornar múltiplos valores correspondentes com Função Definida
Se você se interessar por Funções Definidas, também poderá resolver o problema com Funções Definidas.
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic For Applications.
2. Clique em Módulo > Inserir para inserir uma janela Módulo e copie o VBA abaixo para a janela.
VBA: Procurar valor e retornar múltiplos valores correspondentes.
Function MyVlookup(pWorkRng As Range, pRng As Range, pColumnIndex As Integer, Optional pType As String = "v")
'Updateby20140827
Dim xRow As Single
Dim xCol As Single
Dim arr() As Variant
ReDim arr(0)
For i = 1 To pRng.Rows.Count
If pWorkRng = pRng.Cells(i, 1) Then
arr(UBound(arr)) = pRng.Cells(i, pColumnIndex)
ReDim Preserve arr(UBound(arr) + 1)
End If
Next
If pType = "h" Then
xCol = Range(Application.Caller.Address).Columns.Count
For i = UBound(arr) To xCol
arr(UBound(arr)) = ""
ReDim Preserve arr(UBound(arr) + 1)
Next
ReDim Preserve arr(UBound(arr) - 1)
MyVlookup = arr
Else
xRow = Range(Application.Caller.Address).Rows.Count
For i = UBound(arr) To xRow
arr(UBound(arr)) = ""
ReDim Preserve arr(UBound(arr) + 1)
Next
ReDim Preserve arr(UBound(arr) - 1)
MyVlookup = Application.WorksheetFunction.Transpose(arr)
End If
End Function
3. Feche a janela e digite esta fórmula em uma célula =MyVlookup(A10,$A$2:$B$7,2) (A10 indica o valor de pesquisa, $A$2:$B$7 indica o intervalo de dados, 2 indica o número do índice da coluna). E pressione Shift + Ctrl + Enter. Depois, arraste a alça de preenchimento para baixo nas células, coloque o cursor na Barra de Fórmulas e pressione Shift + Ctrl + Enter novamente.
Dica: Se você quiser retornar os valores em células horizontais, pode digitar esta fórmula =MyVlookup(A10, $A$2:$B$7, 2, "h").
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!