Tarp standartinių „Microsoft Excel“ įrankių yra daug skirtingų būdų, kaip paryškinti dublikatus spalvomis. Lengviausias ir greičiausias būdas yra sąlyginis formatavimas. Norėdami tai padaryti, tiesiog pasirinkite langelių diapazoną ir pasirinkite skirtuke Pagrindinis puslapis — Sąlyginis formatavimas — Langelių pasirinkimo taisyklės — Pasikartojančios reikšmės (Pagrindinis – Sąlyginis formatavimas – Paryškinimo langelių taisyklės – Pasikartojančios reikšmės):
Tačiau šiuo atveju visų langelių užpildymo spalva bus vienoda, ty tiesiog signalizuoja, kad elementas turi dublikatus kažkur kitur diapazone, bet niekuo nepadeda jų rasti. Galite pataisyti situaciją naudodami nedidelę makrokomandą, kuri kiekvieną (ar daugiau) pasikartojančių dublikatų porą užpildys savo spalva:
Taip daug aiškiau, tiesa? Žinoma, esant daugybei pasikartojančių langelių, bus sunku atskirti atspalvius, tačiau esant santykinai nedideliam dublikatų skaičiui, šis metodas veiks puikiai.
Norėdami naudoti šią makrokomandą, paspauskite spartųjį klavišą Alt + F11 arba mygtuką "Visual Basic" kortelė Ryškalas, per meniu įdėkite naują tuščią modulį Įterpimas – modulis ir nukopijuokite šios makrokomandos kodą ten:
Sub DuplicatesColoring() Dim Dupes() 'Paskelbkite masyvą dublikatams saugoti ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Pašalinkite užpildymą, jei i = 3 kiekvienam langeliui Pažymėjimas If WorksheetFunction.CountIf(Pasirinkimas, langelis.Vertė) > 1 Tada For k = LBound(Dupes) To UBound(Dupes) 'jei langelis jau yra dublikatų masyve, užpildykite If Dupes(k, 1) = langelis Tada ląstelė.Interjeras. ColorIndex = Dupes(k, 2) Kitas k 'jei langelyje yra dublikatas, bet dar nėra masyve, pridėkite jį prie masyvo ir užpildykite If cell.Interior.ColorIndex = -4142 Tada cell.Interior.ColorIndex = i Dupes(i, 1 ) = langelis. Reikšmė Dupes(i, 2) = ii = i + 1 Pabaiga, jei pabaiga, jei kita langelio pabaiga
Dabar galite pasirinkti bet kurį diapazoną su duomenimis lape ir paleisti makrokomandą naudodami sparčiuosius klavišus Alt + F8 arba per mygtuką Makrokomandos (Makrokomandos) kortelė ryškalas (Programuotojas).
- Paryškinkite dublikatus spalva
- Kas yra makrokomandos, kur įterpti makrokomandos kodą Visual Basic, kaip jas paleisti
- Kaip suskaičiuoti unikalių verčių skaičių tam tikrame langelių diapazone