Сравнение значений в ячейках

[Андриано73]

Строку

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

a = Range("C2:E" & Cells(Rows.Count, 3).End(xlUp)).Value

замените на

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

a = Range("C2:E" & Cells(Rows.Count, 3).End(xlUp).Row).Value

Пожалуйста научите как правильно перенести макрос из вашего файла в мой. Спасибо.