Question

我使用下面的代码复制工作表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

表1，表2和表2中有20行。工作表3需要逐个复制到最终工作表。但是在上面的代码中，只有每张工作表的最后一行被复制到最终工作表，即行号。所有床单中的20张。

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

Answer 1

将j = 3放在For循环

之前

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

1 个答案: