Passer au contenu principal

Comment trouver des valeurs dupliquées ou uniques dans deux colonnes de deux feuilles?

Peut-être comparer deux plages dans la même feuille de calcul et découvrir les valeurs dupliquées ou uniques est facile pour la plupart d'entre vous, mais si les deux plages sont dans les deux feuilles de calcul différentes, comment pouvez-vous trouver rapidement les valeurs dupliquées et uniques dans ces deux plages ? Ce didacticiel présentera quelques raccourcis pour vous.

Comparez deux mêmes colonnes d'en-tête dans deux feuilles de calcul avec une formule dans Excel

Comparez deux gammes dans deux feuilles de calcul avec VBA

Comparez deux plages dans deux feuilles de calcul avec Kutools for Excel


flèche bleue bulle droite Comparez deux mêmes colonnes d'en-tête dans deux feuilles de calcul avec une formule dans Excel

Avec la formule dans Excel, vous pouvez comparer deux mêmes colonnes d'en-tête comme indiqué ci-dessous sur différentes feuilles et trouver les valeurs dupliquées et uniques:

1. Taper cette formule = COUNTIF (Feuille1! $ A: $ A, A1) dans une cellule vide adjacente à la plage de la feuille 3. Voir capture d'écran:

2. presse Entrer sur le clavier, puis faites glisser la poignée de recopie pour remplir la plage que vous souhaitez comparer avec la plage de la feuille 1. (Le numéro zéro signifie les valeurs en double dans deux plages et le numéro 1 signifie les valeurs uniques dans Sheet3, mais pas dans Sheet1)

Conseils:

1.Cette formule ne peut comparer que deux colonnes avec le même en-tête dans deux feuilles de calcul.

2. Si vous voulez trouver les valeurs uniques dans Sheet1, mais pas dans Sheet3, vous devez entrer la formule ci-dessus =COUNTIF (Feuille3! $ A: $ A, A1) dans Sheet1.


flèche bleue bulle droite Comparez deux gammes dans deux feuilles de calcul avec VBA

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: Comparez deux plages dans deux feuilles de calcul

Sub CompareRanges () 'Update 20130815 Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Range A:", xTitleId, "", Type: = 8 ) Définissez WorkRng2 = Application.InputBox ("Range B:", xTitleId, Type: = 8) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA .RGB (255, 0, 0) Exit For 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 devez sélectionner une plage avec laquelle vous souhaitez comparer. Voir la capture d'écran:

5. Cliquez Ok et une autre boîte de dialogue s'affiche pour vous permettre de sélectionner la deuxième plage. Voir la capture d'écran:

6. Cliquez Ok, et les valeurs en double à la fois dans la plage A et dans la plage B sont mises en évidence avec un arrière-plan rouge dans la plage A. Voir capture d'écran:

Conseils: Avec ce VBA, vous pouvez comparer deux plages à la fois dans la même feuille de calcul et dans des feuilles de calcul différentes.


flèche bleue bulle droite Comparez deux plages dans deux feuilles de calcul avec Kutools for Excel

Si la formule ne vous convient pas et que VBA est difficile pour vous, vous pouvez essayer Kutools for Excel's Comparer les gammes la fonction.

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

S'il vous plaît demander Comparer les gammes fonction en cliquant Kutools > Comparer les gammes. Voir la capture d'écran:

Comparez avec deux colonnes dans des feuilles différentes:

1. Cliquez Kutools > Comparer les gammes, une boîte de dialogue s'affiche à l'écran. Voir la capture d'écran:

2. Spécifiez les plages et les règles, procédez comme suit:

Laissez Comparer dans la même plage décochez et sélectionnez deux plages en cliquant Gamme A et Gamme B, voir capture d'écran:

Spécifiez les mêmes valeurs ou des valeurs différentes que vous voulez trouver dans la liste déroulante sous Règles;

3. Cliquez Ok. Une boîte de dialogue contextuelle vous indique que les mêmes valeurs sont sélectionnées.

4. Cliquez Ok bouton dans la boîte de dialogue contextuelle. Les mêmes valeurs entre deux plages sont sélectionnées dans la plage A.

Comparez deux plages dans des feuilles de calcul

Si vous avez deux plages dans deux feuilles de calcul, comme indiqué ci-dessous, et que vous souhaitez les comparer et découvrir les différentes valeurs, vous pouvez procéder comme suit:

1. Cliquez Kutools > Comparer les gammes, une boîte de dialogue s'affiche à l'écran.

2. Spécifiez les plages et les règles, procédez comme suit:

Laisser Comparer dans la même gamme décochez et sélectionnez deux plages en cliquant Gamme A et Gamme B;

Spécifiez les différentes valeurs que vous souhaitez rechercher dans la liste déroulante sous Règles;

Vérifier que mes données ont des en-têtes in Options section;

3. Cliquez Ok. Une boîte de dialogue contextuelle vous indique que les mêmes valeurs sont sélectionnées.

4. Cliquez Ok bouton dans la boîte de dialogue contextuelle. Les différentes valeurs de la plage A sont sélectionnées. Voir la capture d'écran:

Si vous souhaitez connaître les différentes valeurs de la plage B de la feuille Sheet2, vous devez permuter les deux plages.

Comparer les gammes La fonction peut également comparer des plages dans la même feuille. Cliquez ici pour en savoir plus sur les gammes de comparaison.


Articles relatifs:

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations