V tomto článku sme vytvorili makro na zvýraznenie duplicitných hodnôt.
Pôvodné údaje pozostávajú z rôznych názvov automobilov. Chceme zvýrazniť duplicitné položky.
Stlačením tlačidla „Zvýrazniť duplikáty“ spustíte makro a zvýrazníte duplicitné položky.
Logické vysvetlenie
Vytvorili sme makro „Check_Dups“ na zvýraznenie duplicitných záznamov. Budú zvýraznené červenou farbou. V makre skontrolujeme počet konkrétnych záznamov. Ak je väčšia ako 1, údaje sa zvýraznia.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Možnosť Explicitná čiastková kontrola_Dups () „Deklarovanie premenných Dim bunka ako variant Dim zdroj ako rozsah“ Inicializácia rozsahu zdroja Nastaviť zdroj = rozsah („A9: A24“) 'Odstránenie akéhokoľvek predchádzajúceho formátovania zo zdroja Source.Interior.Color = RGB (221, 235, 247) „Opakovanie v každej bunke v zdrojovom rozsahu pre každú bunku v zdroji“ Kontrola, či hodnota v bunke už existuje v zdrojovom rozsahu, ak je Application.WorksheetFunction.CountIf (zdroj, bunka)> 1 Potom „Zvýraznite duplicitné hodnoty červenou farbou“ color Cell.Interior.Color = RGB (255, 0, 0) End If Next End Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku