Но, почему-то никто не отвечает...
Пробую зайти с другого конца:
Почему-то эта универсальная процедура сравнения двух диапазонов
на повторяющиеся значения не работает с числами...
Этому есть объяснение?
- Код: Выделить всё
Public Sub Сравнение_договоров()
Set workSheet1 = Worksheets("1") 'лист который будем красить
Set workSheet2 = Worksheets("1") 'лист на котором ищем совпадения
Set range1 = workSheet1.Range("A5:A5000") 'диапазон, который обрабатываем
Set range2 = workSheet2.Range("D5:D5000") 'диапазон, с которым сравниваем
Dim curField As Object
Dim findedField As Object
For Each curField In range1
Set findedField = range2.Find(What:=curField.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not findedField Is Nothing Then
curField.Font.Color = vbRed
findedField.Font.Color = vbRed
End If
Next curField
End Sub
