Hogyan lehet vlookupot készíteni és több értéket visszaadni duplikátumok nélkül az Excelben?
Előfordulhat, hogy érdemes vlookup-ot keresnie, és egyszerre több egyező értéket visszaadni egyetlen cellába. De ha néhány ismételt érték van feltöltve a visszaküldött cellákban, hogyan hagyhatja figyelmen kívül a duplikátumokat, és csak akkor őrizheti meg az egyedi értékeket, amikor az összes egyező értéket visszaküldi az Excelben bemutatott képernyőképet követve?
Vlookup és több egyező értéket adhat meg ismétlés nélkül a Felhasználó által definiált funkció használatával
A következő VBA-kód segíthet abban, hogy több egyező értéket adjon meg ismétlés nélkül, kérjük, tegye a következőket:
1. Tartsa lenyomva a Alt + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Vlookup és több egyedi egyeztetett értéket ad vissza:
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. A kód beillesztése után kattintson a gombra Eszközök > Referenciák a nyitottban Microsoft Visual Basic for Applications ablakot, majd beugrott Referenciák - VBAProject párbeszédpanelen ellenőrizze Microsoft Scripting Runtime lehetőség a Elérhető referenciák lista mező, lásd a képernyőképet:
4. Ezután kattintson OK a párbeszédpanel bezárásához mentse el és zárja be a kódablakot, térjen vissza a munkalapra, és írja be ezt a képletet: =MultipleLookupNoRept(E2,A2:C17,3) egy üres cellába, ahol az eredményt ki szeretné adni, nyomja meg a gombot belép gombot a kívánt eredmény eléréséhez. Lásd a képernyőképet:
Megjegyzések: A fenti képletben E2 az a kritérium, amelyet vlookupba szeretne venni, A2: C17 a használni kívánt adattartomány, a szám 3 az oszlop száma, amely tartalmazza a visszaadott értékeket.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!