Jak vlookup a vrátit více hodnot bez duplikátů v aplikaci Excel? 

Někdy můžete chtít vlookup a vrátit více shodných hodnot do jedné buňky najednou. Ale pokud se do vrácených buněk naplní několik opakovaných hodnot, jak byste mohli ignorovat duplikáty a zachovat pouze jedinečné hodnoty při vracení všech odpovídajících hodnot jako následující snímek obrazovky zobrazený v aplikaci Excel?

Vlookup a vrátit více hodnot shody bez duplikátů pomocí funkce definované uživatelem

Vlookup a vrátit více hodnot shody bez duplikátů pomocí funkce definované uživatelem

Následující kód VBA vám pomůže vrátit více shodných hodnot bez duplikátů, udělejte to takto:

1. Podržte Alt + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Vlookup a vrátit více jedinečných shodných hodnot:

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. Po vložení kódu klikněte na Tools > Reference v otevřeném Microsoft Visual Basic pro aplikace okno a poté ve vyskakovacím okně Reference - VBAProject v dialogovém okně zaškrtněte Microsoft Scripting Runtime možnost v Dostupné reference seznam, viz screenshot:

4. Pak klikněte na tlačítko OK zavřete dialogové okno, uložte a zavřete okno s kódem, vraťte se do listu a zadejte tento vzorec: =MultipleLookupNoRept(E2,A2:C17,3) do prázdné buňky, kam chcete výsledek odeslat, stiskněte vstoupit klíč k získání správného výsledku, jak potřebujete. Viz screenshot:

Pozor: Ve výše uvedeném vzorci, E2 jsou kritéria, která chcete zobrazit, A2: C17 je rozsah dat, který chcete použít, číslo 3 je číslo sloupce, které obsahuje vrácené hodnoty.