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.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
