Среди стандартных инструментов Microsoft Excel существует множество различных способов выделения дубликатов цветом. Самый простой и быстрый способ — условное форматирование. Для этого достаточно выделить диапазон ячеек и выбрать на вкладке Главная — Условное форматирование — Правила выделения ячеек — Повторяющиеся значения (Главная страница — Условное форматирование — Правила выделения ячеек — Повторяющиеся значения):
Однако в этом случае цвет заливки всех ячеек будет одинаковым, т.е. он просто сигнализирует о том, что элемент имеет дубликаты где-то еще в диапазоне, но не делает ничего, чтобы помочь их найти. Исправить ситуацию можно небольшим макросом, который будет закрашивать каждую пару (или более) повторяющихся дубликатов своим цветом:
Так гораздо яснее, правда? Конечно, при большом количестве повторяющихся ячеек различить оттенки будет сложно, но при относительно небольшом количестве дубликатов этот метод сработает отлично.
Чтобы использовать этот макрос, нажмите сочетание клавиш Alt + F11 или кнопка Визуальный Бейсик таб Застройщик, вставьте новый пустой модуль через меню Вставка – Модуль и скопируйте туда код этого макроса:
Sub DuplicationsColoring() 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 Тогда 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, как их запускать
- Как посчитать количество уникальных значений в заданном диапазоне ячеек