Comment combiner deux listes sans doublons dans Excel?

Il y a deux listes dans votre feuille de calcul, et certaines des valeurs dans les listes sont des doublons, et vous voulez combiner ces deux listes et laisser simplement les valeurs uniques, comme indiqué dans les captures d'écran ci-dessous, comment pouvez-vous faire?

Combinez des listes sans doublons avec Supprimer les doublons dans Excel

Combinez des listes sans doublons avec VBA

Combinez des listes sans doublons avec Kutools for Excel

Combinez des listes sans doublons avec Supprimer les doublons dans Excel

Incroyable! Utiliser des onglets efficaces dans Excel comme Chrome, Edge, Firefox et Safari !
Économisez 50% de votre temps et réduisez chaque jour des milliers de clics de souris!

Pour combiner deux listes et supprimer les valeurs en double dans Excel, vous pouvez procéder comme suit:

1. Copiez l'une des deux listes et collez-la au bas de l'autre liste, voir capture d'écran:

2. Sélectionnez la liste et cliquez sur Données > Supprimer les doublons, voir capture d'écran:

3. dans le Supprimer les doublons boîte de dialogue, si votre colonne n'a pas d'en-tête, décochez Mes données ont des en-têtes, Puis cliquez sur OK. Voir la capture d'écran:

4. Ensuite, une boîte de dialogue s'affiche à l'écran pour vous indiquer que les doublons ont été supprimés, cliquez sur OK. Voir la capture d'écran:

Vous pouvez voir le résultat:

Combinez des listes sans doublons avec VBA

Dans Excel, un VBA peut également vous aider à combiner les deux listes sans doublons.

1. Tenez ALT bouton et appuyez F11 sur le clavier pour ouvrir un Microsoft Visual Basic pour Application fenêtre.

2. Cliquez insérer > Moduleet copiez le VBA dans le module.

VBA: Combinez des listes sans doublons

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

3. Cliquez Courir bouton ou appuyez sur F5 pour exécuter le VBA.

4. Une boîte de dialogue s'affiche à l'écran et vous pouvez sélectionner la plage que vous souhaitez combiner. Voir la capture d'écran:

5. Cliquez OK, puis une autre boîte de dialogue est apparue pour vous permettre de sélectionner une cellule pour afficher le résultat combiné. Voir la capture d'écran:

6. Cliquez OK. Vous pouvez voir que les listes ont été combinées.

Conseil: le résultat ne peut pas réserver le formatage des cellules après l'exécution du VBA ci-dessus.

Combinez des listes sans doublons avec Kutools for Excel

Avec installé Kutools for Excel, vous pouvez utiliser le Sélectionnez les doublons et les cellules uniques fonction pour résoudre le problème qui combine deux listes sans doublons.

Kutools for Excel comprend plus de 300 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez-le maintenant

1. Copiez l'une des deux listes et collez-la au bas de l'autre liste, sélectionnez la nouvelle liste, puis cliquez sur Kutools > Sélectionnez Outils > Sélectionnez les doublons et les cellules uniques. Voir la capture d'écran:

2. dans le Sélectionnez les doublons et les cellules uniques boîte de dialogue, vérifier Tous les uniques (y compris les premiers doublons)cliquez Ok.

3. Ensuite, une boîte de dialogue apparaît pour vous dire combien de valeurs uniques ont été sélectionnées, cliquez sur OK et Annuler pour fermer deux boîtes de dialogue. Voir la capture d'écran: