Vba 将多行从多张图纸复制到一张图纸

我每天都会收到一份工作簿，根据总行数的不同，每页列出50行信息

如何将每页的50行复制到一个主列表中

从录制宏我得到

Sub Macro2()  
    Sheets("Page1_2").Select
    Rows("5:54").Select
    Selection.Copy
    Sheets("Page1_1").Select
    Range("A56").Select
    ActiveSheet.Paste
End Sub

但我需要它在整个工作簿中循环。我找不到一种方法来为每次迭代将图纸选择增加1，并将粘贴范围增加50

有什么帮助吗？

怎么样：

Sub test()

    Dim curRow As Integer
    Dim activeWorksheet As Worksheet
    Set activeWorksheet = ActiveSheet
    curRow = 1
    For Each ws In ActiveWorkbook.Worksheets
        If Not ws.Name = activeWorksheet.Name Then
            ws.Range("5:54").Copy Destination:=activeWorksheet.Range(CStr(curRow) & ":" & CStr(curRow + 49))

            curRow = curRow + 50
        End If
    Next ws

End Sub

---

它在工作簿中的所有工作表上循环，并将内容复制到当前活动工作表。循环排除当前活动工作表。它假设您试图聚合的内容总是在第5行到第54行。

这非常有效。感谢您的帮助和超快的响应！