Сред стандартните инструменти на 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 Then For k = LBound(Dupes) To UBound(Dupes) 'ако клетката вече е в масива от дубликати, попълнете If Dupes(k, 1) = клетка Тогава клетка.Интериор. 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 Next cell End Sub
Сега можете да изберете всеки диапазон с данни в листа и да стартирате нашия макрос с помощта на клавишната комбинация Alt + F8 или чрез бутона Макроси (Макроси) етикет предприемач (Разработчик).
- Маркирайте дубликатите с цвят
- Какво представляват макросите, къде да вмъкнете макро код във Visual Basic, как да ги стартирате
- Как да преброим броя на уникалните стойности в даден диапазон от клетки