V tomto článku jsme vytvořili makro pro zvýraznění duplicitních hodnot.
Nezpracovaná data se skládají z různých názvů automobilů. Chceme zvýraznit duplicitní položky.
Stisknutím tlačítka „Zvýraznit duplikát“ spustíte makro a zvýrazníte duplicitní položky.
Logické vysvětlení
Vytvořili jsme makro „Check_Dups“ pro zvýraznění duplicitních záznamů. Budou zvýrazněny červenou barvou. V makru kontrolujeme počet konkrétních položek. Pokud je větší než 1, budou data zvýrazněna.
Pro kód prosím postupujte níže
Možnost Explicitní dílčí kontrola_Dups () „Deklarace proměnných Dim buňka jako varianta Dim zdroj jako rozsah“ Inicializace rozsahu zdroje Nastavit zdroj = rozsah („A9: A24“) 'Odebrání předchozího formátování ze zdroje Source.Interior.Color = RGB (221, 235, 247) 'Smyčka skrz každou buňku ve zdrojovém rozsahu pro každou buňku ve zdroji' Kontrola, zda hodnota v buňce již existuje ve zdrojovém rozsahu 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
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail