Стандарттык Microsoft Excel инструменттеринин арасында түс менен кайталанмаларды бөлүп көрсөтүүнүн ар кандай жолдору бар. Эң оңой жана эң тез жолу - шарттуу форматтоо. Бул үчүн, жөн гана бир катар уячаларды тандап, өтмөктөн тандаңыз Башкы бет — Шарттуу форматтоо — Уячаларды тандоо эрежелери — Кайталанма маанилер (Башкы бет — Шарттуу форматтоо — Уячаларды бөлүп көрсөтүү эрежелери — Кайталанма маанилер):
Бирок, бул учурда, бардык уячалардын толтуруу түсү бирдей болот, башкача айтканда, ал жөн гана элементтин диапазонун башка жеринде дубликаттары бар экенин билдирет, бирок аларды табууга эч кандай жардам бербейт. Сиз кырдаалды кичинекей макрос менен оңдой аласыз, ал ар бир жуп (же андан көп) кайталануучу дубликаттарды өзүнүн түсү менен толтурат:
Ушунчалык айкыныраак, туурабы? Албетте, көп сандагы кайталануучу клеткалар менен көлөкөлөрдү айырмалоо кыйынга турат, бирок салыштырмалуу аз сандагы дубликаттар менен бул ыкма эң сонун иштейт.
Бул макросту колдонуу үчүн баскычтоптун жарлыгын басыңыз Alt + F11 же баскыч Visual Basic табулатура иштеп, меню аркылуу жаңы бош модулду салыңыз Кыстаруу – модуль жана бул макронун кодун ошол жерге көчүрүңүз:
Sub DuplicatesColoring() Dim Dupes() 'Дубликаттарды сактоо үчүн массивди жарыялоо ReDim Dupes(1ден Selection.Cells.Count, 1ден 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) = уячаны толтуруңуз Андан кийин cell.Interior. ColorIndex = Dupes(k, 2) Кийинки k 'эгерде уячанын дубликаты болсо, бирок массивде жок болсо, аны массивге кошуп, аны толтуруңуз If cell.Interior.ColorIndex = -4142 Анда cell.Interior.ColorIndex = i Кошумчалар(i, 1 ) = уяча. Мааниси Кошумчалар(i, 2) = ii = i + 1 Эгерде бүтсө, кийинки уячанын аягы
Эми сиз барактагы маалыматтар менен каалаган диапазонду тандап, баскычтоптун жарлыгын колдонуп биздин макросту иштете аласыз Alt + F8 же баскычы аркылуу Macros (Макрос) табулатура иштеп (Иштеп чыгуучу).
- Көчүрмөлөрдү түс менен белгилеңиз
- Макрос деген эмне, Visual Basic программасына макрокодду кайда киргизүү керек, аларды кантип иштетүү керек
- Берилген уячалар диапазонундагы уникалдуу маанилердин санын кантип эсептөө керек