Među standardnim Microsoft Excel alatima postoji mnogo različitih načina za označavanje duplikata bojom. Najlakši i najbrži način je uvjetno oblikovanje. Da biste to učinili, samo odaberite raspon ćelija i odaberite na kartici Početna — Uvjetno oblikovanje — Pravila odabira ćelija — Duplicirane vrijednosti (Početna — Uvjetno oblikovanje — Pravila za označavanje ćelija — Dvostruke vrijednosti):
Međutim, u ovom će slučaju boja ispune svih ćelija biti ista, tj. jednostavno signalizira da element ima duplikate negdje drugdje u rasponu, ali ne čini ništa da ih pronađe. Situaciju možete popraviti malim makroom koji će svaki par (ili više) ponovljenih duplikata ispuniti vlastitom bojom:
Tako jasnije, zar ne? Naravno, s velikim brojem ćelija koje se ponavljaju bit će teško razlikovati nijanse, ali s relativno malim brojem duplikata ova će metoda savršeno funkcionirati.
Za korištenje ove makronaredbe pritisnite tipkovni prečac Alt + F11 ili gumb Visual Basic kartica razvijač, umetnite novi prazan modul putem izbornika Umetak – Modul i tamo kopirajte kod ove makronaredbe:
Sub DuplicatesColoring() Dim Dupes() 'Deklariraj niz za pohranjivanje duplikata ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Ukloni ispunu ako je i = 3 Za svaku ćeliju u Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'ako je ćelija već u nizu duplikata, ispunite If Dupes(k, 1) = cell Zatim ćelija.Unutrašnjost. ColorIndex = Dupes(k, 2) Next k 'ako ćelija sadrži duplikat, ali još nije u nizu, dodajte ga u niz i ispunite 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
Sada možete odabrati bilo koji raspon s podacima na listu i pokrenuti našu makronaredbu pomoću tipkovničke prečice Alt + F8 ili preko gumba makronaredbe (Makronaredbe) kartica razvijač (Programer).
- Označite duplikate bojom
- Što su makronaredbe, gdje umetnuti makro kod u Visual Basicu, kako ih pokrenuti
- Kako izbrojati broj jedinstvenih vrijednosti u određenom rasponu ćelija