A szabványos Microsoft Excel-eszközök között sokféleképpen lehet színnel kiemelni a másolatokat. A legegyszerűbb és leggyorsabb módja a feltételes formázás. Ehhez csak jelöljön ki egy cellatartományt, és válassza ki a lapon Kezdőlap — Feltételes formázás — Cellakiválasztási szabályok — Ismétlődő értékek (Kezdőlap – Feltételes formázás – Cellák kiemelésének szabályai – Ismétlődő értékek):
Ebben az esetben azonban az összes cella kitöltési színe azonos lesz, azaz egyszerűen jelzi, hogy az elemnek máshol vannak duplikátumai a tartományban, de semmi sem segít megtalálni őket. Kijavíthatja a helyzetet egy kis makróval, amely minden pár (vagy több) ismétlődő másolatot a saját színével tölt fel:
Sokkal világosabb, igaz? Természetesen nagy számú ismétlődő cella esetén nehéz lesz megkülönböztetni az árnyalatokat, de viszonylag kis számú ismétlődés esetén ez a módszer tökéletesen működik.
A makró használatához nyomja meg a billentyűkódot Alt + F11 vagy gombot Visual Basic lap Fejlesztő, helyezzen be egy új üres modult a menün keresztül Beszúrás – Modul és másold oda ennek a makrónak a kódját:
Sub DuplicatesColoring() Dim Dupes() 'Tömb deklarálása a duplikátumok tárolására ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Távolítsa el a kitöltést, ha i = 3 Minden egyes cellánál Kijelölés, ha WorksheetFunction.CountIf(Selection, cell. Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'ha a cella már szerepel a duplikátumok tömbjében, töltse ki az If Dupes(k, 1) = cella Aztán sejt.Belső. ColorIndex = Dupes(k, 2) Következő k 'ha a cella duplikált, de még nincs benne a tömbben, adja hozzá a tömbhöz, és töltse ki If cell.Interior.ColorIndex = -4142 Akkor cell.Interior.ColorIndex = i Dupes(i, 1 ) = cella. Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
Mostantól bármilyen adattartományt kiválaszthat a lapon, és a billentyűparancs segítségével futtathatja a makrónkat Alt + F8 vagy a gombon keresztül makrók (Makrók) lap fejlesztő (Fejlesztő).
- Emelje ki a másolatokat színekkel
- Mik azok a makrók, hova kell beszúrni a makrókódot a Visual Basicben, hogyan kell futtatni őket
- Hogyan kell megszámolni az egyedi értékek számát egy adott cellatartományban