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

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.