将行复制到新工作表并重复该代码，直到input工作表中的行结束

我使用下面的代码将行1，表2和表3复制到最终表单中。

Sub test() Dim i As Integer Dim j As Integer Dim shSource As Worksheet Set shSource = ThisWorkbook.Sheets("Details") For i = 2 To shSource.Cells(10, 6).Value j = 3 Sheets("Sheet1").Rows(i).Copy Sheets("Final").Rows(j): j = j + 1 Sheets("Sheet2").Rows(i).Copy Sheets("Final").Rows(j): j = j + 1 Sheets("Sheet3").Rows(i).Copy Sheets("Final").Rows(j): j = j + 1 Next i End Sub 

在第一张，第二张和第三张上有20行需要逐一复制到最后一张。 但是在上面的代码中，只有最后一行被复制到最后一行，即行号。 全部20张

有谁能帮助我，让我知道我在做什么错误？

Answer 1

把j = 3放在For循环之前