Trà l'arnesi standard di Microsoft Excel, ci sò parechje manere di mette in risaltu i duplicati cù u culore. U modu più faciule è più veloce hè cun formatting cundizionale. Per fà questu, selezziunate una gamma di cellule è selezziunate nantu à a tabulazione Home - Formattazione Condizionale - Regoli di Selezzione di Cell - Valori Duplicate (Casa - Formattazione Condizionale - Evidenzia e regule di e cellule - Valori duplicati):
Tuttavia, in questu casu, u culore di riempimentu di tutte e cellule serà u listessu, vale à dì chì simpricimenti signalà chì l'elementu hà duplicati in un altru locu in a gamma, ma ùn faci nunda per aiutà à truvà. Pudete riparà a situazione cù una piccula macro chì riempia ogni paru (o più) di duplicati ripetuti cù u so propiu culore:
Tantu più chjaru, nò? Di sicuru, cù un gran numaru di celluli ripetuti, serà difficiule di distinguishà trà sfumature, ma cù un numaru relativamente pocu di duplicati, stu metudu hà da travaglià perfettamente.
Per utilizà sta macro, appughjà u scurciatu di tastiera Alt + F11 o buttone franese tecnicu Insignia Documentaliste, inserisci un novu modulu viotu via u menu Inserisce - Modulu è copià u codice di sta macro quì:
Sub DuplicatesColoring() Dim Dupes() 'Dichjarà un array per almacenà duplicati ReDim Dupes (1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Eliminate u riempimentu se i = 3 Per ogni cellula In Selezzione Se WorksheetFunction.CountIf (Selezzione, cell.Value) > 1 Allora Per k = LBound(Dupes) To UBound(Dupes) 'se a cellula hè digià in a matrice di duplicati, compie If Dupes (k, 1) = cell Allora cellula.Interior. ColorIndex = Dupes (k, 2) Next k 'se a cellula cuntene un duplicatu, ma micca ancu in l'array, aghjunghje à l'array è riempie If cell.Interior.ColorIndex = -4142 Allora cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
Avà pudete selezziunà qualsiasi intervallu cù dati nantu à u fogliu è eseguisce a nostra macro utilizendu a scurciatoia di tastiera Alt + F8 o attraversu u buttone Macros (Macros) Insignia documentaliste (Sviluppatore).
- Evidenziate i duplicati cù u culore
- Chì sò i macros, induve inserisce u codice macro in Visual Basic, cumu eseguisce
- Cumu cuntà u numeru di valori unichi in una determinata gamma di cellule