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

[Petrov210217]

Вот так работает

Sub Кнопка1_Щелчок()
    Dim i As Long, j As Long
    For i = 1 To 2
        For j = 1 To 3
            'Sheets("Лист3").Range("C1") = i
            'Sheets("Лист3").Range("C2") = j
              
            If Sheets("Лист2").Range("A" & "2") = Sheets("Лист3").Range("A" & "2") Then
            With Sheets("Лист2").Range("A1")
                Sheets("Лист3").Range("A20").Resize(.Rows.Count, .Columns.Count) = .Value
            End With

            End If
        Next
    Next
    'Application.Run "Запуск макроса"
    MsgBox "Преобразование закончено"
    
End Sub

но мне нужно, чтобы ячейки и столбики изменялись в цикле,запись типа i+2

[Hugo121]

Используйте cells(строка, столбец)

[IgorGO]

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

а что Вы хотите записать правильно? можете обьяснить словами, без VBA, потому что то, что Вы пишете на VBA имеет к VBA такое же отношение как я к проблемам разведения кроликов мясной породы в средней полосе России.

[Petrov210217]

С листа 3 берем значение а1,а2,а4,а5, сравниваем со всеми значениями на листе 2. Сначала с а1,а2,а4,а5, затем а2,а3,а5,а6, потом а3,а4,а6,а7 и так по всему тексту, текст на листе 2 расположен в диапазоне нескольких столбцов и строк. Если значения ячеек равны, то копируем например из а2,а3,а5,а6 значение а4 листа2 и вставляем в а3 листа3. Если нет равенства то идем пока текст не кончится. Когда текст кончился или есть равенство, то смещаемся на одну ячейку листа 3 и начинаем заново (а2,а3,а5,а6). Так пока не кончится текст на листе3

[IgorGO]

значения берем именно в этом порядке 2 подряд, пропуск и еще 2 подряд?
допустим совпали а3,а4,а6,а7, что копируем?

[Petrov210217]

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

значения берем именно в этом порядке 2 подряд, пропуск и еще 2 подряд?
допустим совпали а3,а4,а6,а7, что копируем?

Да, значения именно в этом порядке. Если совпало, то копируем значение а5 из листа 2 в а5 листа3. Затем смещаемся на листе3 на одну ячейку а4,а5,а7,а8 и повторяем. Если совпадения нет, то смещаемся на одну ячейку и ищем совпадения. Суть пройти весь текст на листе 3 и сравнить с текстом на листе 2 на совпадение и при его наличии копировать.

[Petrov210217]

причем количество строк и столбцов на листе 3 не будут совпадать с количеством строк и столбцов на листе 2

[IgorGO]

т.е. после того как проверена колонкп А, проверить В, потом С и так - пока есть данные в следующей колонке?

[Petrov210217]

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

т.е. после того как проверена колонкп А, проверить В, потом С и так - пока есть данные в следующей колонке?

Проходим сначала всю колонку, затем переходим на следующую строку и снова идем по колонкам, пример того, как расположен текст на листах во вложенном файле

[IgorGO]

"берем на листе3 значения А1. А2, А4, А5"
А5 - уже пусто- нету данных, нечего сравнивать
переходим в колонку В
берем В1,В2,В4,В5 - в В5 уже пусто, нет данных, нечего сравнивать
переходим в колонку С
...
переходим в колонку АТ, там уже в АТ4 пусто
...
а после колонки ВР - вообще нет данных
зачем писать макрос если ни в одной колонке нет достаточного количества данных и НИЧЕГО не будет скопировано.
этот результат уже есть в файле с листа 2 НИЧЕГО не скопировано на лист 3.
задача выполнена.