Kako v Excel iskati in vrniti več vrednosti brez dvojnikov?
Včasih boste morda želeli vlookup in vrniti več ujemajočih se vrednosti v eno celico hkrati. Toda, če je v vrnjene celice vnesenih nekaj ponavljajočih se vrednosti, kako lahko prezrete dvojnike in ohranite edinstvene vrednosti le, če vrnete vse ujemajoče se vrednosti, kot je prikazano na sliki zaslona, prikazani v Excelu?
Vlookup in vrnitev več ujemajočih se vrednosti brez dvojnikov z uporabniško določeno funkcijo
Vlookup in vrnitev več ujemajočih se vrednosti brez dvojnikov z uporabniško določeno funkcijo
Naslednja koda VBA vam lahko pomaga vrniti več ujemajočih se vrednosti brez dvojnikov. Naredite to:
1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Vlookup in vrnitev več unikatnih ujemajočih se vrednosti:
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. Po vstavitvi kode kliknite Orodja > Reference v odprtem Microsoft Visual Basic za aplikacije okno in nato v izpuščenem Reference - VBAProject pogovorno okno, preverite Izvajanje Microsoftovih skriptov možnost v Razpoložljive reference seznam, glej posnetek zaslona:
4. Nato kliknite OK da zaprete pogovorno okno, shranite in zaprite okno s kodo, se vrnite na delovni list in vnesite to formulo: =MultipleLookupNoRept(E2,A2:C17,3) v prazno celico, kjer želite izpisati rezultat, pritisnite Vnesite tipko, da dobite pravi rezultat, kot ga potrebujete. Oglejte si posnetek zaslona:
Opombe: V zgornji formuli, E2 je merilo, ki ga želite pregledati, A2: C17 je obseg podatkov, ki ga želite uporabiti, število 3 je številka stolpca, ki vsebuje vrnjene vrednosti.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!