将行从3个不同的工作表复制到最终工作表

Question

我是VBA的新手，我正在尝试从sheet1，Sheet2和amp;中复制行。 Sheet3到同一工作簿中的最终工作表。

所有三张纸都有相同的号码。的行。我想要的宏应首先复制行号。来自sheet1的2并将其粘贴到Final Sheet然后复制Row no。来自Sheet2的2并将其粘贴到先前复制的行下面的最终工作表，然后从已粘贴的行下面的工作表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