Sådan slettes og returneres flere værdier uden duplikater i Excel? 

Nogle gange vil du muligvis slå op og returnere flere matchede værdier i en enkelt celle på én gang. Men hvis der er nogle gentagne værdier, der er befolket i de returnerede celler, hvordan kan du ignorere duplikaterne og kun beholde de unikke værdier, når du returnerer alle matchende værdier som følgende skærmbillede vist i Excel?

Vlookup og returner flere matchende værdier uden duplikater ved hjælp af brugerdefineret funktion

Vlookup og returner flere matchende værdier uden duplikater ved hjælp af brugerdefineret funktion

Følgende VBA-kode kan hjælpe dig med at returnere flere matchende værdier uden duplikater, gør venligst som dette:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Vlookup og returner flere unikke matchede værdier:

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 indsat koden, skal du klikke på Værktøjer > Referencer i det åbnede Microsoft Visual Basic til applikationer vindue og derefter i det dukkede ud Referencer - VBAProject dialogboks, tjek Microsoft Scripting Runtime valgmulighed i Tilgængelige referencer listefelt, se skærmbillede:

4. Klik derefter på OK for at lukke dialogboksen, gemme og lukke kodevinduet, vende tilbage til regnearket og indtaste denne formel: =MultipleLookupNoRept(E2,A2:C17,3) ind i en tom celle, hvor du vil udskrive resultatet, tryk på Indtast nøgle for at få det korrekte resultat, som du har brug for. Se skærmbillede:

Bemærk: I ovenstående formel E2 er de kriterier, du vil vlookup, A2: C17 er det dataområde, du vil bruge, tallet 3 er kolonnetallet, der indeholder de returnerede værdier.