Como vlookup e retornar vários valores sem duplicatas no Excel?
Às vezes, você pode querer vlookup e retornar vários valores correspondentes em uma única célula de uma vez. Mas, se houver alguns valores repetidos preenchidos nas células retornadas, como você poderia ignorar as duplicatas e apenas manter os valores exclusivos ao retornar todos os valores correspondentes conforme a captura de tela a seguir mostrada no Excel?
Vlookup e retorna vários valores correspondentes sem duplicatas usando a função definida pelo usuário
O seguinte código VBA pode ajudá-lo a retornar vários valores correspondentes sem duplicatas, faça o seguinte:
1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: Vlookup e retorna vários valores correspondentes exclusivos:
Function MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim xDic As New Dictionary
Dim xRows As Long
Dim xStr As String
Dim i As Long
On Error Resume Next
xRows = LookupRange.Rows.Count
For i = 1 To xRows
If LookupRange.Columns(1).Cells(i).Value = Lookupvalue Then
xDic.Add LookupRange.Columns(ColumnNumber).Cells(i).Value, ""
End If
Next
xStr = ""
MultipleLookupNoRept = xStr
If xDic.Count > 0 Then
For i = 0 To xDic.Count - 1
xStr = xStr & xDic.Keys(i) & ","
Next
MultipleLookupNoRept = Left(xStr, Len(xStr) - 1)
End If
End Function
3. Após inserir o código, clique em Ferramentas > Referências no aberto Microsoft Visual Basic para Aplicações janela e, em seguida, no Referências - VBAProject caixa de diálogo, verifique Tempo de execução de scripts da Microsoft opção no Referências Disponíveis caixa de lista, veja a captura de tela:
4. Então clique OK para fechar a caixa de diálogo, salve e feche a janela de código, retorne à planilha e insira esta fórmula: =MultipleLookupNoRept(E2,A2:C17,3) em uma célula em branco onde você deseja produzir o resultado, pressione Entrar chave para obter o resultado correto conforme necessário. Veja a imagem:
Note: Na fórmula acima, E2 são os critérios que você deseja ver, A2: C17 é o intervalo de dados que você deseja usar, o número 3 é o número da coluna que contém os valores retornados.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
