sadržaj

Među standardnim alatima Microsoft Excela, postoji mnogo različitih načina da se duplikati istaknu bojom. Najlakši i najbrži način je uslovno formatiranje. Da biste to učinili, samo odaberite raspon ćelija i odaberite na kartici Početna — Uvjetno oblikovanje — Pravila za odabir ćelije — Duplicirane vrijednosti (Početna — Uvjetno oblikovanje — Istaknuta pravila ćelija — Duplicirane vrijednosti):

Dvostruko osvetljenje duplikata

Međutim, u ovom slučaju, boja ispune svih ćelija će 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 svojom bojom:

Dvostruko osvetljenje duplikata

Toliko jasnije, zar ne? Naravno, s velikim brojem ponavljajućih ćelija bit će teško razlikovati nijanse, ali s relativno malim brojem duplikata, ova metoda će savršeno funkcionirati.

Da biste koristili ovaj makro, pritisnite prečicu na tastaturi Alt + F11 ili dugme Visual Basic tabulator razvijač, ubacite novi prazan modul preko menija Umetak – Modul i tamo kopirajte kod ovog makroa:

Sub DuplicatesColoring() Dim Dupes() 'Objavite niz za pohranjivanje duplikata ReDim Dupes(1 do Selection.Cells.Count, 1 do 2) Selection.Interior.ColorIndex = -4142 'Uklonite popunu ako je i = 3 za svaku ćeliju In Odabir If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Tada je za k = LBound(Dupes) To UBound(Dupes) 'ako je ćelija već u nizu duplikata, popunite If Dupes(k, 1) = cell Zatim cell.Interior. ColorIndex = Dupes(k, 2) Sljedeći k 'ako ćelija sadrži duplikat, ali još nije u nizu, dodajte ga u niz i popunite ga Ako cell.Interior.ColorIndex = -4142 Zatim 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š makro koristeći prečicu na tipkovnici Alt + F8 ili preko dugmeta Macros (makroi) tabulator Developer (programer).

  • Označite duplikate bojom
  • Šta su makroi, gdje umetnuti makro kod u Visual Basic, kako ih pokrenuti
  • Kako izbrojati broj jedinstvenih vrijednosti u datom rasponu ćelija

Ostavite odgovor