Запускаю этот код, выделяется переменная "y" и появляется сообщение: Invalid Next control variable reference.
В чём может быть проблема?
Sub Find_Matches()
Dim CompareRange1 As Variant, x As Variant, y As Variant, CompareRange3 As Variant
Set CompareRange1 = Range("A1:A7")
Set CompareRange3 = Range("C1:C4")
For Each y In CompareRange1
For Each x In CompareRange3
If x = y Then y.Offset(0, 1) = x.inset(0, 1)
Next y
Next x
End Sub
У вас Next y и Next x перепутаны местами.
Я в какой то момент заменил в экспериментах x.Offset(0, 1) на x.inset(0, 1) и забыл от этом. Вернул как было, поменял местами Next x и Next y - заработало! Огромное спасибо. Я уж думал, что в принципе неправильно построил макрос.