Сярод стандартных інструментаў Microsoft Excel існуе мноства розных спосабаў вылучэння дублікатаў колерам. Самы просты і хуткі спосаб - гэта ўмоўнае фарматаванне. Каб зрабіць гэта, проста вылучыце дыяпазон вочак і абярыце на ўкладцы Галоўная — Умоўнае фарматаванне — Правілы выбару вочак — Паўторныя значэнні (Галоўная старонка — Умоўнае фарматаванне — Правілы вылучэння вочак — Паўтаральныя значэнні):
Аднак у гэтым выпадку колер залівання ўсіх вочак будзе аднолькавым, гэта значыць ён проста сігналізуе аб тым, што элемент мае дублікаты дзесьці ў іншым дыяпазоне, але нічога не дапамагае знайсці. Выправіць сітуацыю можна невялікім макрасам, які запоўніць кожную пару (ці больш) паўтаральных дублікатаў сваім колерам:
Так больш зразумела, праўда? Вядома, пры вялікай колькасці паўтаральных вочак адрозніць адценні будзе складана, але пры адносна невялікай колькасці дублікатаў гэты спосаб будзе працаваць ідэальна.
Каб выкарыстоўваць гэты макрас, націсніце спалучэнне клавіш Alt + F11 альбо кнопка Візуальны Бейсик таб распрацоўшчык, устаўце новы пусты модуль праз меню Устаўка – модуль і скапіруйце туды код гэтага макраса:
Sub DuplicatesColoring() Dim Dupes() 'Аб'явіць масіў для захоўвання дублікатаў ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Выдаліць заліванне, калі i = 3 Для кожнай ячэйкі In Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'калі ячэйка ўжо ёсць у масіве дублікатаў, запоўніце If Dupes(k, 1) = cell Затым клетка.Інтэр'ер. ColorIndex = Dupes(k, 2) Next k 'калі ячэйка змяшчае дублікат, але яшчэ не ў масіве, дадайце яго ў масіў і запоўніце If cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Наступная ячэйка End Sub
Цяпер вы можаце выбраць любы дыяпазон з дадзенымі на аркушы і запусціць наш макрас з дапамогай спалучэння клавіш Alt + F8 або праз кнопку Макрас (Макрасы) таб распрацоўшчык (Распрацоўшчык).
- Вылучыце дублікаты колерам
- Што такое макрасы, куды ўстаўляць код макрасаў у Visual Basic, як іх запускаць
- Як падлічыць колькасць унікальных значэнняў у зададзеным дыяпазоне вочак