Копирование строки из 3 разных листов в последний лист

Question

Я новичок в VBA, и я пытаюсь скопировать строки из листа1, Sheet2 & Лист3 на последний лист в той же рабочей книге.

Все три листа имеют одинаковый номер. строк. Макрос, который я хочу, должен сначала скопировать строку №. 2 из листа1 и вставьте его в Final Sheet, затем скопируйте строку №. 2 из Sheet2 и вставьте его в окончательный лист ниже ранее скопированной строки, а затем из листа 3 в последний лист ниже уже вставленных строк.

Это должно повторяться до тех пор, пока все ряды всего листа не будут скопированы и вставлены в окончательный лист.

Спасибо заранее и извините, если я сделал повторения.

Answer 1

Это один из вариантов

Sub test() 
Dim i&, z& 'Long type 
i = 2: z = 2 
While z <> 100 
    Sheets("Sheet2").Rows(z).Copy Sheets("Sheet1").Rows(i): i = i + 1 
    Sheets("Sheet3").Rows(z).Copy Sheets("Sheet1").Rows(i): i = i + 1 
    Sheets("Sheet4").Rows(z).Copy Sheets("Sheet1").Rows(i): i = i + 1 
    z = z + 1 
Wend 
End Sub