Microsoft Excel-ի ստանդարտ գործիքների շարքում կան բազմաթիվ տարբեր եղանակներ՝ կրկնօրինակները գույնով ընդգծելու համար: Ամենահեշտ և ամենաարագ ճանապարհը պայմանական ձևաչափումն է: Դա անելու համար պարզապես ընտրեք մի շարք բջիջներ և ընտրեք ներդիրում Գլխավոր — Պայմանական ձևաչափում — Բջջի ընտրության կանոններ — Կրկնվող արժեքներ (Տուն — Պայմանական ձևաչափում — Ընդգծել բջիջների կանոնները — Կրկնվող արժեքներ):
Այնուամենայնիվ, այս դեպքում բոլոր բջիջների լրացման գույնը կլինի նույնը, այսինքն՝ այն պարզապես ազդանշան է տալիս, որ տարրը ունի կրկնօրինակներ տիրույթում, բայց ոչինչ չի օգնում գտնել դրանք: Դուք կարող եք շտկել իրավիճակը փոքր մակրոյով, որը կլցնի կրկնվող կրկնօրինակների յուրաքանչյուր զույգ (կամ ավելի) իր սեփական գույնով.
Այսքան ավելի պարզ, չէ՞: Իհարկե, կրկնվող բջիջների մեծ քանակի դեպքում դժվար կլինի տարբերել երանգները, սակայն համեմատաբար փոքր թվով կրկնօրինակների դեպքում այս մեթոդը հիանալի կաշխատի:
Այս մակրոյից օգտվելու համար սեղմեք ստեղնաշարի դյուրանցումը Alt + F11 կամ կոճակ Visual Basic ականջակալ Երեվակիչ, ցանկի միջոցով տեղադրեք նոր դատարկ մոդուլ Ներդիր – մոդուլ և պատճենեք այս մակրոյի կոդը այնտեղ.
Sub DuplicatesColoring() Dim Dupes() 'Հայտարարել զանգված կրկնօրինակները պահելու համար ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Հեռացնել լրացումը, եթե i = 3 յուրաքանչյուր բջիջի համար Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Ապա For k = LBound(Dupes) To UBound(Dupes) 'եթե բջիջն արդեն կրկնօրինակների զանգվածում է, լրացրեք If Dupes(k, 1) = բջիջ: Հետո բջիջ.Ինտերիեր. ColorIndex = Dupes(k, 2) Հաջորդ k 'եթե բջիջը պարունակում է կրկնօրինակ, բայց դեռ զանգվածում չկա, ավելացրեք այն զանգվածին և լրացրեք այն If cell.Interior.ColorIndex = -4142 Հետո cell.Interior.ColorIndex = i Dupes(i, 1) = բջիջ: Արժեք Dupes(i, 2) = ii = i + 1 Ավարտ, եթե վերջ, եթե հաջորդ բջիջը վերջ Ենթ.
Այժմ դուք կարող եք ընտրել ցանկացած տիրույթ՝ թերթիկի տվյալների հետ և գործարկել մեր մակրոն՝ օգտագործելով ստեղնաշարի դյուրանցումը Alt + F8 կամ կոճակի միջոցով Մակրո (մակրոներ) ականջակալ երեվակիչ (մշակող).
- Ընդգծեք կրկնօրինակները գույնով
- Ինչ են մակրոները, որտեղ տեղադրել մակրո կոդը Visual Basic-ում, ինչպես գործարկել դրանք
- Ինչպես հաշվել եզակի արժեքների քանակը բջիջների տվյալ տիրույթում