将所有工作表复制到一张工作表中

Question

我正在尝试编写一个excel宏，它将所有工作表复制到一个工作表中。

所有工作表的布局均相同，共4列，每行的每个单元格中都有数据。 每张纸都有一个标题。 我正在尝试将每个工作表中的预过滤数据复制到结果工作表中，每个工作表中的数据都将堆叠在一起。

到目前为止，这就是我所拥有的，并且几乎可以正常工作。

Dim sh As Worksheet
Dim iRows As Long

iRows = 0

For Each sh In ActiveWorkbook.Worksheets

sh.Select
Range("A1").Select
Selection.Offset(1, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Worksheets("Results").Select
Range("A1").Select
Selection.Offset(iRows, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues

iRows = Worksheets("Results").UsedRange.Rows.Count
Next sh

我的偏移量是不正确的，当我复制下一张纸时，我复制了它复制到上一行中的数据。

如果有人可以帮忙，那将是很棒的，如果您也可以在这里解释我做错了什么，那将是很棒的，因为我是excel和VBA的新手。 我猜我不了解粘贴的正确运作方式？

Answer 1

Sub tgr()

    Dim ws As Worksheet
    Dim wsDest As Worksheet

    Set wsDest = Sheets("Results")

    For Each ws In ActiveWorkbook.Sheets
        If ws.Name <> wsDest.Name Then
            ws.Range("A2", ws.Range("A2").End(xlToRight).End(xlDown)).Copy
            wsDest.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
        End If
    Next ws

End Sub

Answer 2

我设法弄清楚了。 我不确定我的代码是否理想，但是现在我需要的东西可以工作了。

我的工作簿中有两个空白工作表。 一种称为模板，另一种称为结果。 我所做的事情被添加，并且if循环忽略了这两个页面。 似乎因为存在这两个空白表，所以我要添加额外的空间。