Excel 將不同工作簿中的數據復制到 1 個工作簿中

Question

我正在嘗試將來自不同工作簿的數據粘貼到 1 個主工作簿中。 到目前為止，數據的復制和粘貼工作正常，但是，當我將數據粘貼到工作簿中時，在將每個工作簿粘貼到主工作簿中后，會跳過一些行。 下圖顯示了問題。

2,3 和 6-12 被跳過。 下面是我的代碼：

    Sub Macro1()
'
' Macro1 Macro
'
    Dim wb1 As Workbook
    Set wb1 = ThisWorkbook

Path = "C:\Users\Tester\Documents\test\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Rows("2:" & Range("A1").End(xlDown).Row).copy _
        wb1.Sheets(1).Range("A" & Range("A1").End(xlDown).Row + 1)
    Application.CutCopyMode = False
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

我認為問題與這一行“wb1.Sheets(1).Range("A" & Range("A1").End(xlDown).Row + 1)”有關，但我不知道如何解決這個。 有什么建議？ 謝謝！

Answer 1

您只定義要復制到的范圍，但在其中命令Range("A1").End(xlDown).Row文件尚未指定，因此 excel 將獲得表單活動文件。

嘗試將您的目的地更改為

wb1.Sheets(1).Range("A" & wb1.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1)

你的代碼看起來像

Sheet.Rows("2:" & Range("A1").End(xlDown).Row).copy 
     _ wb1.Sheets(1).Range("A" & wb1.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1)