Међу стандардним Мицрософт Екцел алатима, постоји много различитих начина да се дупликати истакну бојом. Најлакши и најбржи начин је условно форматирање. Да бисте то урадили, само изаберите опсег ћелија и изаберите на картици Почетна — Условно обликовање — Правила за избор ћелије — Дупликати вредности (Почетна — Условно форматирање — Истакните правила ћелија — Дупликати вредности):
Међутим, у овом случају, боја попуњавања свих ћелија ће бити иста, односно једноставно сигнализира да елемент има дупликате негде другде у опсегу, али не чини ништа да их пронађе. Ситуацију можете поправити малим макроом који ће испунити сваки пар (или више) поновљених дупликата својом бојом:
Толико јасније, зар не? Наравно, са великим бројем ћелија које се понављају, биће тешко разликовати нијансе, али са релативно малим бројем дупликата, овај метод ће радити савршено.
Да бисте користили овај макро, притисните пречицу на тастатури Алт + ФКСНУМКС или дугме Висуал Басиц табулатор Девелопер, убаците нови празан модул преко менија Инсерт – Модул и тамо копирајте код овог макроа:
Суб ДуплицатесЦолоринг() Дим Дупес() 'Објавите низ за чување дупликата РеДим Дупес(1 до Селецтион.Целлс.Цоунт, 1 до 2) Селецтион.Интериор.ЦолорИндек = -4142 'Уклоните попуну ако је и = 3 за сваку ћелију Ин Селецтион Иф ВорксхеетФунцтион.ЦоунтИф(Селецтион, целл.Валуе) > 1 Тхен Фор к = ЛБоунд(Дупес) То УБоунд(Дупес) 'ако је ћелија већ у низу дупликата, попуните Иф Дупес(к, 1) = целл Затим ћелија.Унутрашњост. ЦолорИндек = Дупес(к, 2) Следећи к 'ако ћелија садржи дупликат, али још увек није у низу, додајте га у низ и попуните га Ако целл.Интериор.ЦолорИндек = -4142 Затим целл.Интериор.ЦолорИндек = и Дупес(и, 1 ) = целл.Валуе Дупес(и, 2) = ии = и + 1 Енд Иф Енд Иф Нект целл Енд Суб
Сада можете изабрати било који опсег са подацима на листу и покренути наш макро користећи пречицу на тастатури Алт + ФКСНУМКС или преко дугмета Макрои (макрои) табулатор развијач (Програмер).
- Истакните дупликате бојом
- Шта су макрои, где убацити макро код у Висуал Басиц, како их покренути
- Како пребројати број јединствених вредности у датом опсегу ћелија