Сравнение диапазонов. Банально, но все-таки...

[sonata]

Банальный вопрос: но очень необходимый.
Есть 2 числовых столбца разной длины.
Нужно их сравнить, и покрасить ячейки меньшего диапазона,
в цвет ячейки большего(при соответствии значения).
Как это сделать?
Подскажите, пожалуйста...

[sonata]

Решила свою задачку сама.
Может быть, кому-нибудь пригодится?

Код: Выделить всё

Public Sub Сравнение_номеров_квартир()
'Сравнимаем  Столбц 9(лист "Сверка") со Столбецом 1(лист "СМР_акты ")
'Задача: Условие "Если значение ячейки совпадает, то красим эту ячейку в
'цвет ячейки Столбеца 1(лист "СМР_акты ")

Set workSheet1 = Worksheets("Сверка")      'лист который будем красить
Set workSheet2 = Worksheets("СМР_акты")      'лист на котором ищем совпадения
Set range1 = workSheet1.Range("I2:I60")  'диапазон, который обрабатываем
Set range2 = workSheet2.Range("А2:А318") 'диапазон, с которым сравниваем

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.Interior.ColorIndex=findedField.Interior.ColorIndex
    End If
Next curField

End Sub