Есть макрос который после выделения мышкой определенной области на листе для проверки и запуска макроса - заливает цветом ячейки в которых текст идентичный. Вот так:
Вот его код:
На данных которые я сравнивал ранее - макрос работал. А сейчас столкнулся с проблемой что макрос после начала работы выдает вот такую вот ошибку:
Подскажите, пожалуйста, что нужно поправить в коде макроса чтобы он корректно работал? Заранее благодарен за помощь
Вот его код:
Код |
---|
Sub PodsvetkaDubleiURL() Dim Dupes() 'объявляем массив для хранения дубликатов ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'убираем заливку если была i = 3 For Each cell In Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'если ячейка уже есть в массиве дубликатов - заливаем If Dupes(k, 1) = cell Then cell.Interior.ColorIndex = Dupes(k, 2) Next k 'если ячейка содержит дубликат, но еще не в массиве - добавляем ее в массив и заливаем If cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1) = cell.Value Dupes(i, 2) = i i = i + 1 End If End If Next cell End Sub |
На данных которые я сравнивал ранее - макрос работал. А сейчас столкнулся с проблемой что макрос после начала работы выдает вот такую вот ошибку:
Подскажите, пожалуйста, что нужно поправить в коде макроса чтобы он корректно работал? Заранее благодарен за помощь