Como utilizar o VLOOKUP para procurar e devolver vários valores sem duplicados no Excel?
Ao trabalhar com dados no Excel, poderá por vezes precisar de devolver vários valores que correspondam a um determinado critério de pesquisa. Contudo, a função VLOOKUP padrão devolve apenas um único valor. Em situações em que existem várias correspondências e pretende apresentá-las numa única célula sem duplicados, pode recorrer a métodos alternativos para alcançar este objetivo.

Procurar com VLOOKUP e devolver vários valores correspondentes sem duplicados no Excel
Devolver vários valores correspondentes sem duplicados com as funções TEXTJOIN e FILTER
Se estiver a utilizar o Excel 365 ou o Excel 2021, pode tirar partido das funções TEXTJOIN e FILTER para alcançar este objetivo de forma simples e eficaz. Estas funções permitem-lhe filtrar dados dinamicamente e concatenar os resultados numa única célula.
Introduza a fórmula abaixo numa célula vazia, prima Enter e obtenha de imediato todos os valores correspondentes sem duplicados. Veja a imagem:
=TEXTJOIN(", ", TRUE, UNIQUE(FILTER(C2:C17, A2:A17=E2))) 
- A fórmula FILTER(C2:C17; A2:A17=E2) extrai todos os nomes da coluna C cujo produto na coluna A corresponde ao valor de pesquisa em E2.
- UNIQUE remove quaisquer valores duplicados.
- A função TEXTJOIN(", "; VERDADEIRO; ...) combina os valores únicos resultantes numa única célula, separados por vírgulas.
Devolver vários valores correspondentes sem duplicados com uma funcionalidade poderosa
Se pretender utilizar o VLOOKUP para devolver vários valores correspondentes sem duplicados no Excel, mas considerar as fórmulas manuais ou o VBA demasiado complexos, o **Kutools para Excel** oferece uma solução fácil e eficiente. Com a sua funcionalidade **«Pesquisa um-para-muitos»**, extrai e combina rapidamente todos os valores correspondentes únicos numa única célula — tudo com apenas alguns cliques.
Clique em «Kutools» > «Super PROC» > «Pesquisa um-para-muitos (devolve vários resultados)» para abrir a caixa de diálogo «Pesquisa um-para-muitos» e, em seguida, especifique as operações na caixa de diálogo:
- Selecione «Área de Colocação da Lista» e «Intervalo de valor de pesquisa» nas caixas de texto separadamente;
- Selecione o intervalo da tabela que pretende utilizar;
- Especifique o Coluna Chave e o Coluna de retorno a partir das listas pendentes «Coluna Chave» e «Coluna de retorno» separadamente;
- Por fim, clique no botão «OK».

Resultado:
Agora, pode ver que todos os valores correspondentes foram extraídos sem duplicações. Veja a imagem:
Se pretender utilizar um delimitador diferente para separar os dados, basta clicar em «Opções» e escolher o delimitador desejado. Além disso, pode ainda realizar diversas operações nos resultados, como somar, calcular a média e muito mais.
Devolver vários valores correspondentes sem duplicados com uma Função Definida pelo Utilizador
Se não tiver o Excel 365 ou o Excel 2021, pode utilizar a Função Definida pelo Utilizador indicada abaixo como alternativa. Este método permite-lhe obter resultados semelhantes, tais comodevolver vários valores correspondentes sem duplicados, mesmo em versões mais antigas do Excel.
- Mantenha premidas as teclas «Alt» + "F11"para abrir a janela «Microsoft Visual Basic para Aplicações».
- Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do Módulo.
Código VBA: Procurar com VLOOKUP e devolver vários valores correspondentes únicos:
Function VlookupUnique(lookupValue As String, lookupRange As Range, resultRange As Range, delim As String) As String Dim cell As Range Dim result As String Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") For Each cell In lookupRange If cell.Value = lookupValue Then If Not dict.exists(resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value) Then dict.Add resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value, True result = result & delim & resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value End If End If Next cell If Len(result) > 0 Then VlookupUnique = Mid(result, Len(delim) + 1) Else VlookupUnique = "" End If End Function - Na janela do código, regresse à folha de cálculo e introduza a seguinte fórmula; prima a tecla «Enter» para obter o resultado correto pretendido. Veja a imagem:
=VlookupUnique(E2, A2:A17, C2:C17, ", ")
Em resumo, existem várias formas eficazes de utilizar o VLOOKUP para devolver vários valores correspondentes sem duplicados no Excel. Escolha o método que melhor se adapta às suas necessidades e à sua versão do Excel. Com estas técnicas, conseguirá facilmente obter vários valores correspondentes sem duplicados no Excel. Se quiser explorar ainda mais dicas e truques do Excel, o nosso site disponibiliza milhares de tutoriais.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos

