Onder de standaard Microsoft Excel-tools zijn er veel verschillende manieren om duplicaten met kleur te markeren. De gemakkelijkste en snelste manier is met voorwaardelijke opmaak. Om dit te doen, selecteert u gewoon een celbereik en selecteert u op het tabblad Home — Voorwaardelijke opmaak — Regels voor celselectie — Dubbele waarden (Home - Voorwaardelijke opmaak - Cellen markeren Regels - Dubbele waarden):
In dit geval zal de vulkleur van alle cellen echter hetzelfde zijn, dwz het geeft alleen aan dat het element ergens anders in het bereik duplicaten heeft, maar doet niets om ze te helpen vinden. Je kunt de situatie oplossen met een kleine macro die elk paar (of meer) herhaalde duplicaten met zijn eigen kleur vult:
Zoveel duidelijker, toch? Met een groot aantal herhalende cellen zal het natuurlijk moeilijk zijn om onderscheid te maken tussen tinten, maar met een relatief klein aantal duplicaten zal deze methode perfect werken.
Om deze macro te gebruiken, drukt u op de sneltoets Alt + F11 of knop Visual Basic tab Ontwikkelaar, voeg een nieuwe lege module in via het menu Invoegen – Module en kopieer daar de code van deze macro:
Sub DuplicatesColoring() Dim Dupes() 'Declareer een array om duplicaten op te slaan ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Verwijder de vulling als i = 3 For Each cell In Selectie If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'als de cel al in de reeks duplicaten staat, vult u If Dupes(k, 1) = cel in Dan cel.Interieur. ColorIndex = Dupes(k, 2) Volgende k 'als de cel een duplicaat bevat, maar nog niet in de array, voegt u deze toe aan de array en vult u deze If cell.Interior.ColorIndex = -4142 Dan cell.Interior.ColorIndex = i Dupes(i, 1 ) = cel. Waarde Dupes(i, 2) = ii = i + 1 End If End If Volgende cel End Sub
Nu kunt u elk bereik met gegevens op het blad selecteren en onze macro uitvoeren met de sneltoets Alt + F8 of via de knop Macro's (Macro's) tab ontwikkelaar (Ontwikkelaar).
- Duplicaten markeren met kleur
- Wat zijn macro's, waar macrocode in te voegen in Visual Basic, hoe ze uit te voeren?
- Hoe het aantal unieke waarden in een bepaald cellenbereik te tellen