Standardsete Microsoft Exceli tööriistade hulgas on palju erinevaid viise duplikaatide värviga esiletõstmiseks. Lihtsaim ja kiireim viis on tingimusvormingu kasutamine. Selleks valige lihtsalt lahtrite vahemik ja valige vahekaardil Avaleht — Tingimuslik vormindamine — Lahtrite valikureeglid — Väärtuste dubleerimine (Avaleht – Tingimuslik vormindamine – Lahtrite esiletõstmise reeglid – Väärtuste dubleerimine):
Kuid sel juhul on kõigi lahtrite täitevärv sama, st see lihtsalt annab märku, et elemendil on kusagil mujal vahemikus duplikaate, kuid ei aita neid leida. Saate olukorra parandada väikese makroga, mis täidab iga (või enama) korduva duplikaadi paari oma värviga:
Nii palju selgem, eks? Muidugi on suure arvu korduvate lahtrite korral raske toone eristada, kuid suhteliselt väikese arvu duplikaatide korral töötab see meetod suurepäraselt.
Selle makro kasutamiseks vajutage klaviatuuri otseteed Alt + F11 või nuppu Visual Basic tab arendaja, sisestage menüü kaudu uus tühi moodul Sisesta – moodul ja kopeerige selle makro kood sinna:
Sub DuplicatesColoring() Dim Dupes() 'Deklareerige massiiv duplikaatide salvestamiseks ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Eemaldage täide, kui i = 3 iga lahtri jaoks Valik If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'kui lahter on juba duplikaatide massiivis, täitke Kui Dupes(k, 1) = lahter Siis rakk.Sisekujundus. ColorIndex = Dupes(k, 2) Järgmine k 'kui lahter sisaldab duplikaati, kuid pole veel massiivis, lisage see massiivi ja täitke see If cell.Interior.ColorIndex = -4142 Siis cell.Interior.ColorIndex = i Dupes(i, 1 ) = lahter.Väärtus Dupes(i, 2) = ii = i + 1 End If End If Next Lahter End Sub
Nüüd saate valida mis tahes lehel olevate andmetega vahemiku ja käivitada meie makro, kasutades kiirklahvi Alt + F8 või nupu kaudu Makrod (Makrod) tab arendaja (Arendaja).
- Tõstke duplikaadid värviga esile
- Mis on makrod, kuhu Visual Basicus makrokoodi sisestada, kuidas neid käivitada
- Kuidas loendada unikaalsete väärtuste arvu antud lahtrivahemikus