Cum să căutați și să returnați mai multe valori fără duplicate în Excel?
Uneori, poate doriți să căutați și să returnați mai multe valori potrivite într-o singură celulă simultan. Dar, dacă există câteva valori repetate populate în celulele returnate, cum ați putea ignora duplicatele și puteți păstra valorile unice numai la returnarea tuturor valorilor potrivite, după cum urmează captura de ecran prezentată în Excel?
Căutați și returnați mai multe valori de potrivire fără duplicate utilizând funcția definită de utilizator
Următorul cod VBA vă poate ajuta să returnați mai multe valori de potrivire fără duplicate, vă rugăm să procedați astfel:
1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Vlookup și returnează mai multe valori unice potrivite:
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. După introducerea codului, faceți clic pe Instrumente > Referinte în deschise Microsoft Visual Basic pentru aplicații fereastră, apoi, în fereastra ieșită Referințe - VBAProject casetă de dialog, bifați Runtime Microsoft Scripting opțiune în Referințe disponibile casetă listă, vezi captura de ecran:
4. Apoi apasa OK pentru a închide caseta de dialog, salvați și închideți fereastra de cod, reveniți la foaia de lucru și introduceți această formulă: =MultipleLookupNoRept(E2,A2:C17,3) într-o celulă goală în care doriți să scoateți rezultatul, apăsați Intrați cheie pentru a obține rezultatul corect după cum aveți nevoie. Vedeți captura de ecran:
notițe: În formula de mai sus, E2 este criteriul pe care doriți să îl vizualizați, A2: C17 este intervalul de date pe care doriți să îl utilizați, numărul 3 este numărul coloanei care conține valorile returnate.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
