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

【问题标题】：Copy row from 3 different sheet to final sheet将行从 3 个不同的工作表复制到最终工作表
【发布时间】：2015-03-18 05:00:57
【问题描述】：

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

三张纸的编号相同。的行。我想要的宏应该首先复制行号。 2 从 sheet1 并将其粘贴到 Final Sheet 然后复制行号。 2 从 Sheet2 并将其粘贴到先前复制的行下方的最终工作表，然后从工作表 3 粘贴到已粘贴行下方的最终工作表。

这应该重复，直到所有工作表中的所有行都被复制并粘贴到最终工作表。

在此先感谢，如果我重复了，请见谅。

【问题讨论】：

标签： vba excel

【解决方案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

【讨论】：

亲爱的瓦西里，感谢您的回复。但这不起作用。我有n个。每个 sheet1,2&3 中的行，我的查询是代码应该将每张表的第 2 行一一复制到最后一页，这需要重复直到复制到最后一页的行数。所以在最后一张表中会有 n*3 行。
@KamleshJain，答案已根据您的评论更新