Поиск повторяющихся значений (дубликатов) в одном из столбцов таблицы Excel и выделение их цветом заливки с помощью кода VBA.
Поиск дубликатов в столбце
Чаще всего повторяющиеся значения ищут в первом столбце таблицы, поэтому процедуру поиска дубликатов в VBA Excel рассмотрим именно на нем:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Sub DuplicateSearch() Dim ps As Long, myRange As Range, i1 As Long, i2 As Long 'Определяем номер последней строки таблицы ps = Cells(1, 1).CurrentRegion.Rows.Count 'Нет смысла искать дубликаты в таблице, состоящей из одной строки If ps > 1 Then 'Присваиваем объектной переменной ссылку на исследуемый столбец Set myRange = Range(Cells(1, 1), Cells(ps, 1)) With myRange 'Очищаем ячейки столбца от предыдущих закрашиваний .Interior.Color = xlNone For i1 = 1 To ps - 1 For i2 = i1 + 1 To ps If .Cells(i1) = .Cells(i2) Then 'Если значения сравниваемых ячеек совпадают, 'обеим присваиваем новый цвет заливки .Cells(i1).Interior.Color = 6740479 .Cells(i2).Interior.Color = 6740479 End If Next Next End With End If End Sub |
После ручного исправления или удаления повторяющихся значений, запускаем процедуру DuplicateSearch вновь, чтобы очистить от заливки ячейки столбца с уникальными значениями и заново выделить оставшиеся дубликаты.
Чтобы найти повторы в другом столбце, замените номер столбца в параметрах свойства Cells (в трех местах процедуры DuplicateSearch).
Константы для заливки
Для указания цвета заливки для ячеек с повторяющимися значениями вместо числового значения цвета можно использовать предопределенные константы:
| Предопределенная константа | Наименование цвета |
|---|---|
| vbBlack | Черный |
| vbBlue | Голубой |
| vbCyan | Бирюзовый |
| vbGreen | Зеленый |
| vbMagenta | Пурпурный |
| vbRed | Красный |
| vbWhite | Белый |
| vbYellow | Желтый |
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.
Добрый день.
Помогите, пожалуйста, с выводом сообщений по результату проверки:
— при отсутствии задвоений «Задвоения не найдены»
— при наличии задвоений «Найдено ТАКОЕ (число) задвоенных номеров»
Спасибо!
Обсуждение закрыто.