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.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
