Условие if else в цикле for

[Petrov210217]

Доброго времени суток. Пишу макрос, но получаю ошибку.

Макрос1()
    Dim i&, j&
    For i = 3 To 10
        For j = 7 To 10
            Sheets("Лист3").Range("C1") = i
            Sheets("Лист3").Range("C2") = j
              
            'If Sheets("Лист2").Range("1 + i" & "1 + j") = Sheets("Лист3").Range("1 + i" & "1 + j") And Sheets("Лист2").Range("1 + i" & "2 + j") = Sheets("Лист3").Range("1 + i" & "2 + j") And Sheets("Лист2").Range("1 + i" & "4 + j") = Sheets("Лист3").Range("1 + i" & "4 + j") And Sheets("Лист2").Range("1 + i" & "5 + j") = Sheets("Лист3").Range("1 + i" & "5 + j") Then
            If Sheets("Лист2").Range(1 + i & 1 + j) = Sheets("Лист3").Range(1 + i & 1 + j) And Sheets("Лист2").Range(1 + i & 2 + j) = Sheets("Лист3").Range(1 + i & 2 + j) And Sheets("Лист2").Range(1 + i & 4 + j) = Sheets("Лист3").Range(1 + i & 4 + j) And Sheets("Лист2").Range(1 + i & 5 + j) = Sheets("Лист3").Range(1 + i & 5 + j) Then
            
            Sheets("Лист2").Range("1 + i" & "3 + j").Copy
            Sheets("Лист3").Range("3 + i" & "1 + j").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            
            End If
        Next
    Next
    MsgBox "Завершено"
End Sub

Задача макроса следующая: сравнивает значения ячеек на листе1 со значениями ячеек на листе 2 в цикле, если значения в ячейках совпадают, то одно значение копируется с листа2 в лист3. Макрос должен сравнить весь текст на листе2 со всем текстом на листе3 и при условии выполнить копирование.
Объяснил скорее всего криво, прикладываю файл, текс выделенный красным на листе 2 должен заменить текст выделенный красным на листе3.

[IgorGO]

Вы бы обьяснили что с чем сравнивать и что потом скопировать
потому что понять это на основании текста Вашего макроса - не возможно)

[Petrov210217]

На листах 2 и 3 есть текст. Сравниваем текст на листе 3 с текстом на листе 2. Сравниваем текст в ячейках а1,а2,а4,а5 на листе 3 с текстом в ячейках а1,а2,а4,а5 на листе 2. Если текст в ячейках а1,а2,а4,а5 на листе 3 полностью соответствует тексту в ячейках а1,а2,а4,а5 на листе 2, то копируем текст с ячейки а3 листа 2 в ячейку а3 листа3, если условие не выполнено, то ничего не делаем, идем дальше.
Затем смещаемся на 1 ячейку и повторяем процесс(Сравниваем текст в ячейках а2,а3,а5,а6 на листе 3 с текстом в ячейках а2,а3,а5,а6 на листе 2.) и тд. когда строка кончилась, переходим на вторую строку, задача пройти весь текст. Диапазон ячеек, которые нужно пройти я задал в макросе (For i = 3 To 10
For j = 7 To 10). Если ячейка пустая, то все равно сравнивать, но не копировать значения с листа 2 на лист 3

[Hugo121]

Файл не смотрел, но сомневаюсь что там есть диапазон с таким именем:
Range("1 + i1 + j")

[Petrov210217]

Ошибку выдает в строке условия If. Пологаю, что я не правильно задал условия или передаю в условия текст из ячейки.

[Hugo121]

Ну так в той строке и есть этот диапазон.

[Petrov210217]

Сообщение от Hugo121

Файл не смотрел, но сомневаюсь что там есть диапазон с таким именем:
Range("1 + i1 + j")

Три раза просмотрел код, а такого не увидел.

[Аватар]

Сообщение от Petrov210217

Sheets("Лист2").Range("1 + i" & "3 + j").Copy

ну Range("1 + i3 + j") есть, что оно обозначает?

[Hugo121]

Да, извиняюсь, подслеповат вероятно рабочий монитор - теперь вижу что это в закоментированной строке.
Но всё равно, там есть аналогичное
Range("1 + i" & "3 + j")
Ну а то, что активно - тоже сомневаюсь что есть диапазон Range(48)

[Petrov210217]

Так как записать правильно?