Серед стандартних інструментів Microsoft Excel є багато різних способів виділення дублікатів кольором. Найпростіший і найшвидший спосіб – умовне форматування. Для цього просто виділіть діапазон комірок і виберіть на вкладці Головна — Умовне форматування — Правила вибору клітинок — Повторювані значення (Домашня сторінка — Умовне форматування — Правила виділення клітинок — Повторювані значення):
Однак у цьому випадку колір заливки всіх комірок буде однаковим, тобто це просто сигналізує про те, що елемент має дублікати десь в іншому діапазоні, але нічого не допомагає їх знайти. Ви можете виправити ситуацію за допомогою невеликого макросу, який заповнить кожну пару (або більше) повторюваних дублікатів своїм кольором:
Так зрозуміліше, чи не так? Звичайно, при великій кількості повторюваних осередків розрізнити відтінки буде складно, але при порівняно невеликій кількості дублікатів цей спосіб буде працювати ідеально.
Щоб використати цей макрос, натисніть комбінацію клавіш Alt + F11 або кнопку Візуальний Бейсік таб Розробник, вставте новий порожній модуль через меню Вставка – модуль і скопіюйте туди код цього макросу:
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) = 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 Next cell End Sub
Тепер ви можете вибрати будь-який діапазон із даними на аркуші та запустити наш макрос за допомогою комбінації клавіш Alt + F8 або через кнопку Макрос (Макроси) таб розробник (розробник).
- Виділіть дублікати кольором
- Що таке макроси, куди вставляти макрокод у Visual Basic, як їх запускати
- Як підрахувати кількість унікальних значень у заданому діапазоні комірок