将行复制到新的 sheet 并重复代码直到输入 sheet 中的行结束

Question

我正在使用以下代码将行从 Sheet 1、Sheet 2 & Sheet 3 复制到最终的 Sheet。

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

Sheet 1, Sheet 2 & Sheet 3中有20行需要一一复制到final Sheet。但在上面的代码中，只有每个 Sheet 的最后一行被复制到最终 sheet 即行号。所有 sheet 中的 20 个。

任何人都可以帮助我，让我知道我哪里做错了吗？

Answer 1

将 j = 3 放在 For 循环之前

将行复制到新的 sheet 并重复代码直到输入 sheet 中的行结束

Copying row to new sheet and repeat the code until end of row in input sheet

excel

vba