Comment vlookup et renvoyer plusieurs valeurs sans doublons dans Excel? 

Parfois, vous souhaiterez peut-être rechercher et renvoyer plusieurs valeurs correspondantes dans une seule cellule à la fois. Mais, s'il y a des valeurs répétées remplies dans les cellules renvoyées, comment pouvez-vous ignorer les doublons et ne conserver que les valeurs uniques lors du renvoi de toutes les valeurs correspondantes comme illustré ci-dessous dans Excel?

Vlookup et renvoyer plusieurs valeurs correspondantes sans doublons à l'aide de la fonction définie par l'utilisateur

Vlookup et renvoyer plusieurs valeurs correspondantes sans doublons à l'aide de la fonction définie par l'utilisateur

Le code VBA suivant peut vous aider à renvoyer plusieurs valeurs correspondantes sans doublons, procédez comme suit:

1. Maintenez le Alt + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Vlookup et retourne plusieurs valeurs correspondantes uniques:

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. Après avoir inséré le code, cliquez sur Outils > Références en plein air Microsoft Visual Basic pour applications fenêtre, puis, dans le sauté Références - VBAProject boîte de dialogue, cochez Exécution de scripts Microsoft option dans la Références disponibles zone de liste, voir capture d'écran:

4. Puis clique OK pour fermer la boîte de dialogue, enregistrez et fermez la fenêtre de code, revenez à la feuille de calcul et entrez cette formule: =MultipleLookupNoRept(E2,A2:C17,3) dans une cellule vide où vous souhaitez afficher le résultat, appuyez sur Entrer clé pour obtenir le résultat correct selon vos besoins. Voir la capture d'écran:

Notes: Dans la formule ci-dessus, E2 est le critère que vous souhaitez consulter, A2: C17 est la plage de données que vous souhaitez utiliser, le nombre 3 est le numéro de colonne contenant les valeurs renvoyées.