Obsah

Mezi standardními nástroji Microsoft Excel existuje mnoho různých způsobů, jak barevně zvýraznit duplikáty. Nejjednodušší a nejrychlejší způsob je podmíněné formátování. Chcete-li to provést, stačí vybrat oblast buněk a vybrat na kartě Domů — Podmíněné formátování — Pravidla výběru buněk — Duplicitní hodnoty (Domů — Podmíněné formátování — Zvýraznit pravidla buněk — Duplicitní hodnoty):

Dvojité osvětlení duplikátů

V tomto případě však bude barva výplně všech buněk stejná, tj. jednoduše signalizuje, že prvek má duplikáty někde jinde v rozsahu, ale nedělá nic, aby je pomohl najít. Situaci můžete napravit malým makrem, které vyplní každý pár (nebo více) opakovaných duplikátů vlastní barvou:

Dvojité osvětlení duplikátů

Tak mnohem jasnější, že? Samozřejmě, že s velkým počtem opakujících se buněk bude obtížné rozlišit mezi odstíny, ale s relativně malým počtem duplikátů bude tato metoda fungovat perfektně.

Chcete-li použít toto makro, stiskněte klávesovou zkratku Alt + F11 nebo tlačítko Visual Basic Karta Vývojka, vložte nový prázdný modul přes nabídku Vložit – Modul a zkopírujte tam kód tohoto makra:

Sub DuplicatesColoring() Dim Dupes() 'Deklarujte pole pro ukládání duplikátů ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Odstraňte výplň, pokud i = 3 pro každou buňku v Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'pokud je buňka již v poli duplikátů, vyplňte If Dupes(k, 1) = cell Pak cela.Interiér. ColorIndex = Dupes(k, 2) Další k 'pokud buňka obsahuje duplikát, ale ještě není v poli, přidejte jej do pole a vyplňte jej If cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub  

Nyní můžete vybrat libovolný rozsah s daty na listu a spustit naše makro pomocí klávesové zkratky Alt + F8 nebo prostřednictvím tlačítka makra (makra) Karta vývojka (Vývojář).

  • Zvýrazněte duplikáty barvou
  • Co jsou makra, kam vložit kód makra ve Visual Basicu, jak je spouštět
  • Jak spočítat počet jedinečných hodnot v daném rozsahu buněk

Napsat komentář