Entre les eines estàndard de Microsoft Excel, hi ha moltes maneres diferents de ressaltar els duplicats amb color. La manera més fàcil i ràpida és amb el format condicional. Per fer-ho, només cal que seleccioneu un rang de cel·les i seleccioneu a la pestanya Inici — Format condicional — Regles de selecció de cel·les — Valors duplicats (Inici — Format condicional — Regles de ressaltat de cel·les — Valors duplicats):
Tanmateix, en aquest cas, el color de farciment de totes les cel·les serà el mateix, és a dir, simplement indica que l'element té duplicats en algun altre lloc de l'interval, però no fa res per trobar-los. Podeu solucionar la situació amb una petita macro que omplirà cada parell (o més) de duplicats repetits amb el seu propi color:
Molt més clar, oi? Per descomptat, amb un gran nombre de cel·les que es repeteixen, serà difícil distingir entre tons, però amb un nombre relativament petit de duplicats, aquest mètode funcionarà perfectament.
Per utilitzar aquesta macro, premeu la drecera del teclat Alt + F11 o botó Visual Basic llengüeta Revelador, inseriu un mòdul buit nou a través del menú Inserir – Mòdul i copieu el codi d'aquesta macro allà:
Sub DuplicatesColoring() Dim Dupes() 'Declara una matriu per emmagatzemar duplicats ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Elimineu l'emplenament si i = 3 per a cada cel·la a Selecció Si WorksheetFunction.CountIf(Selection, cell.Value) > 1 Aleshores, per a k = LBound(Dupes) To UBound(Dupes) 'si la cel·la ja està a la matriu de duplicats, empleneu If Dupes(k, 1) = cel·la Després cel·la.Interior. ColorIndex = Dupes(k, 2) A continuació k 'si la cel·la conté un duplicat, però encara no a la matriu, afegiu-la a la matriu i ompliu-la Si cell.Interior.ColorIndex = -4142 Aleshores cell.Interior.ColorIndex = i Dupes(i, 1) = cel·la.Valor Dupes(i, 2) = ii = i + 1 Final si Final si Següent cel·la Final Sub
Ara podeu seleccionar qualsevol rang amb dades del full i executar la nostra macro mitjançant la drecera del teclat Alt + F8 o mitjançant el botó Macros (Macros) llengüeta revelador (Desenvolupador).
- Ressalta els duplicats amb color
- Què són les macros, on inserir codi de macro a Visual Basic, com executar-les
- Com comptar el nombre de valors únics en un rang determinat de cel·les