In dit artikel hebben we een macro gemaakt om dubbele waarden te markeren.
Ruwe data bestaat uit verschillende autonamen. We willen dubbele vermeldingen markeren.
Druk op de knop "Markeer duplicaat" om de macro uit te voeren en dubbele vermeldingen te markeren.
Logische uitleg
We hebben de macro "Check_Dups" gemaakt om dubbele vermeldingen te markeren. Ze worden gemarkeerd in rode kleur. In de macro controleren we de telling van een bepaald item. Als deze groter is dan 1, worden de gegevens gemarkeerd.
Volg hieronder voor de code:
Optie Explicit Sub Check_Dups() 'Variabelen Dim Cell As Variant Dim Source As Range declareren 'Bronbereik initialiseren Set Source = Range("A9:A24") 'Verwijderen van eerdere opmaak uit de bron Source.Interior.Color = RGB(221, 235, 247) 'Door elke cel in het bronbereik bladeren Voor elke cel in bron' Controleren of de waarde in de cel al bestaat in het bronbereik If Application.WorksheetFunction.CountIf(Source, Cell)> 1 Then 'Dubbele waarden in rood markeren kleur Cell.Interior.Color = RGB(255, 0, 0) End If Next End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite