Vérifiez les doublons dans la colonne
Dans cet article, nous avons créé une macro pour mettre en évidence les valeurs en double.
Les données brutes se composent de différents noms de voitures. Nous voulons mettre en évidence les entrées en double.
Appuyez sur le bouton «Mettre en surbrillance les doublons» pour exécuter la macro et mettre en surbrillance les entrées en double.
Explication logique
Nous avons créé une macro «Check_Dups» pour mettre en évidence les entrées en double. Ils seront surlignés en rouge. Dans la macro, nous vérifions le nombre d’une entrée particulière. S’il est supérieur à 1, les données seront mises en surbrillance.
Veuillez suivre ci-dessous pour le code
Option Explicit Sub Check_Dups() 'Declaring variables Dim Cell As Variant Dim Source As Range 'Initializing source range Set Source = Range("A9:A24") 'Removing any previous formatting from the source Source.Interior.Color = RGB(221, 235, 247) 'Looping through each cell in the source range For Each Cell In Source 'Checking whether value in cell already exist in the source range If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then 'Highlighting duplicate values in red color Cell.Interior.Color = RGB(255, 0, 0) End If Next End Sub
Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.
Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]