Medzi štandardnými nástrojmi programu Microsoft Excel existuje mnoho rôznych spôsobov, ako zvýrazniť duplikáty farbou. Najjednoduchší a najrýchlejší spôsob je podmienené formátovanie. Ak to chcete urobiť, stačí vybrať rozsah buniek a vybrať na karte Domov — Podmienené formátovanie — Pravidlá výberu buniek — Duplicitné hodnoty (Domov — Podmienené formátovanie — Zvýrazniť pravidlá buniek — Duplicitné hodnoty):
V tomto prípade však bude farba výplne všetkých buniek rovnaká, tj jednoducho signalizuje, že prvok má duplikáty niekde inde v rozsahu, ale nepomôže ich nájsť. Situáciu môžete vyriešiť pomocou malého makra, ktoré vyplní každý pár (alebo viac) opakovaných duplikátov vlastnou farbou:
Oveľa jasnejšie, však? Samozrejme, s veľkým počtom opakujúcich sa buniek bude ťažké rozlíšiť medzi odtieňmi, ale s relatívne malým počtom duplikátov bude táto metóda fungovať perfektne.
Ak chcete použiť toto makro, stlačte klávesovú skratku Alt + F11 alebo tlačidlo Visual Basic pútko Vývojka, cez menu vložte nový prázdny modul Vložiť – Modul a skopírujte tam kód tohto makra:
Sub DuplicatesColoring() Dim Dupes() 'Deklarovanie poľa na ukladanie duplikátov ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Odstráňte výplň, ak i = 3 pre každú bunku In Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'ak je bunka už v poli duplikátov, vyplňte If Dupes(k, 1) = bunka Potom cela.Interiér. ColorIndex = Dupes(k, 2) Ďalej k 'ak bunka obsahuje duplikát, ale ešte nie je v poli, pridajte ho do poľa a vyplňte ho If cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1 ) = bunka.Value Dupes(i, 2) = ii = i + 1 End If End If Ďalšia bunka End Sub
Teraz môžete vybrať ľubovoľný rozsah s údajmi na hárku a spustiť naše makro pomocou klávesovej skratky Alt + F8 alebo cez tlačidlo Makrá (makrá) pútko vývojka (vývojár).
- Zvýraznite duplikáty farbou
- Čo sú makrá, kam vložiť kód makra vo Visual Basicu, ako ich spustiť
- Ako spočítať počet jedinečných hodnôt v danom rozsahu buniek