Starp standarta Microsoft Excel rīkiem ir daudz dažādu veidu, kā izcelt dublikātus ar krāsu. Vienkāršākais un ātrākais veids ir nosacītā formatēšana. Lai to izdarītu, vienkārši atlasiet šūnu diapazonu un atlasiet cilnē Sākums — Nosacījuma formatēšana — Šūnu atlases noteikumi — Vērtību dublikāti (Sākums — nosacījumformatēšana — šūnu iezīmēšanas kārtulas — dublētās vērtības):
Tomēr šajā gadījumā visu šūnu aizpildījuma krāsa būs vienāda, ti, tas vienkārši signalizē, ka elementam ir dublikāti kaut kur citur diapazonā, bet nekas nepalīdz tos atrast. Varat labot situāciju, izmantojot nelielu makro, kas aizpildīs katru (vai vairāk) atkārtotu dublikātu pāri ar savu krāsu.
Tik daudz skaidrāk, vai ne? Protams, ar lielu skaitu atkārtotu šūnu būs grūti atšķirt toņus, taču ar salīdzinoši nelielu dublikātu skaitu šī metode darbosies lieliski.
Lai izmantotu šo makro, nospiediet īsinājumtaustiņu Alt+F11 vai pogu Visual Basic tab Attīstītājs, ievietojiet jaunu tukšu moduli, izmantojot izvēlni Ievietot - modulis un nokopējiet tur šī makro kodu:
Sub DuplicatesColoring() Dim Dupes() 'Deklarējiet masīvu, lai saglabātu dublikātus ReDim Dupes(1 līdz Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Noņemiet aizpildījumu, ja i = 3 katrai šūnai Atlase If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'ja šūna jau ir dublikātu masīvā, aizpildiet If Dupes(k, 1) = šūna Tad šūna.Interjers. ColorIndex = Dupes(k, 2) Nākamais k 'ja šūnā ir dublikāts, bet vēl nav masīvā, pievienojiet to masīvam un aizpildiet to If cell.Interior.ColorIndex = -4142 Tad cell.Interior.ColorIndex = i Dupes(i, 1 ) = šūna. Vērtība Dupes(i, 2) = ii = i + 1 Beigas Ja Beigas Ja Nākamā šūna Beigas apakš
Tagad varat atlasīt jebkuru diapazonu ar datiem lapā un palaist mūsu makro, izmantojot īsinājumtaustiņu Alt+F8 vai caur pogu Makro (Makro) tab attīstītājs (Izstrādātājs).
- Iezīmējiet dublikātus ar krāsu
- Kas ir makro, kur Visual Basic ievietot makro kodu, kā tos palaist
- Kā saskaitīt unikālo vērtību skaitu noteiktā šūnu diapazonā