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.

ArrowSampleData

Appuyez sur le bouton «Mettre en surbrillance les doublons» pour exécuter la macro et mettre en surbrillance les entrées en double.

ArrowOutput

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.

ArrowOutput

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]