Hur slår jag upp och returnerar flera värden utan dubbletter i Excel? 

Ibland kanske du vill söka efter och returnera flera matchade värden i en enda cell samtidigt. Men om det finns några upprepade värden som fylls i de returnerade cellerna, hur kan du ignorera dubbletterna och bara behålla de unika värdena när du returnerar alla matchande värden som följande skärmdump visas i Excel?

Vlookup och returnera flera matchande värden utan dubbletter med användardefinierad funktion

Vlookup och returnera flera matchande värden utan dubbletter med användardefinierad funktion

Följande VBA-kod kan hjälpa dig att returnera flera matchande värden utan dubbletter, gör så här:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Vlookup och returnera flera unika matchade värden:

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. När du har infogat koden klickar du sedan på verktyg > Referensprojekt i det öppnade Microsoft Visual Basic för applikationer fönstret och sedan, i poppade ut Referenser - VBAProject dialogruta, kontrollera Microsoft Scripting Runtime alternativet i Tillgängliga referenser listruta, se skärmdump:

4. Klicka sedan OK för att stänga dialogrutan, spara och stäng kodfönstret, gå tillbaka till kalkylbladet och skriv in denna formel: =MultipleLookupNoRept(E2,A2:C17,3) i en tom cell där du vill mata ut resultatet, tryck ange nyckel för att få det korrekta resultatet som du behöver. Se skärmdump:

Anmärkningar: I ovanstående formel, E2 är kriteriet som du vill vlookup, A2: C17 är det dataområde du vill använda, numret 3 är kolumnnumret som innehåller de returnerade värdena.