Меѓу стандардните алатки на Microsoft Excel, постојат многу различни начини за истакнување на дупликатите со боја. Најлесен и најбрз начин е со условно форматирање. За да го направите ова, само изберете опсег на ќелии и изберете на јазичето Дома — Условно форматирање — Правила за избор на ќелии — дупликат вредности (Дома — Условно форматирање — Означете ги правилата за ќелии — дупликат вредности):
Меѓутоа, во овој случај, бојата на пополнување на сите ќелии ќе биде иста, т.е. едноставно сигнализира дека елементот има дупликати некаде на друго место во опсегот, но не прави ништо за да ги пронајдеме. Можете да ја поправите ситуацијата со мало макро кое ќе го пополни секој пар (или повеќе) повторени дупликати со своја боја:
Толку појасно, нели? Се разбира, со голем број повторувачки ќелии, ќе биде тешко да се разликуваат нијанси, но со релативно мал број дупликати, овој метод ќе работи совршено.
За да го користите ова макро, притиснете ја кратенката на тастатурата Alt + F11 или копче Visual Basic табот Создавач, вметнете нов празен модул преку менито Вметни – Модул и копирајте го кодот на ова макро таму:
Sub DuplicatesColoring() Dim Dupes() 'Одјави низа за складирање дупликати ReDim Dupes(1 To Selection.Cells.Count, 1 to 2) Selection.Interior.ColorIndex = -4142 'Отстранете го пополнувањето ако i = 3 За секоја ќелија во Избор If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Потоа за k = LBound(Dupes) To UBound(Dupes) 'ако ќелијата е веќе во низата дупликати, пополнете If Dupes(k, 1) = ќелија Потоа ќелија.Внатрешност. ColorIndex = Dupes(k, 2) Следно k 'ако ќелијата содржи дупликат, но сè уште не е во низата, додајте ја во низата и пополнете ја Ако cell.Interior.ColorIndex = -4142 Потоа cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
Сега можете да изберете кој било опсег со податоци на листот и да го извршите нашето макро користејќи ја кратенката на тастатурата Alt + F8 или преку копчето Макроа (макроа) табот инвеститорот (програмер).
- Означете ги дупликатите со боја
- Што се макроа, каде да вметнете макро код во Visual Basic, како да ги извршите
- Како да се брои бројот на единствени вредности во даден опсег на ќелии