將一個工作簿的多個工作表中的單元格復制到另一個工作簿中的多個工作表

Question

我正在尋找一個宏，它將特定范圍的單元格從一個工作簿復制到新工作簿的各個工作表。 該宏將從“Workbook1”的“Sheet 1”中復制單元格 A1:HC5，並粘貼到“Workbook2”的“Sheet 1”的相同單元格 (A1:HC5) 中。 然后工作表 2 應該跟隨，然后工作表 3 等等。

兩個工作簿的工作表數量相同，工作表名稱相同，例如第 1 頁、第 2 頁等。 工作簿中的工作表數超過 2000。

我嘗試了這篇文章中的代碼，但它從第一個工作簿的第 1 頁復制到第二個工作簿的第 1 頁。 需要從所有工作表復制數據的代碼。

請注意，我不打算將多張工作表中的特定數據合並到一張工作表或匯總表中。

Answer 1

試試這個，如果您有任何問題，請告訴我。

代碼應該從舊工作簿運行，並且應該已經創建了新工作簿並且代碼中的變量發生了變化。

Sub copyAllSheetsToWorkbook()

    Dim x As Workbook
    Dim y As Workbook
    Dim copyToWrkbk As String

    Set x = ActiveWorkbook
    'change this to the name of the workbook you're copying to
    copyToWrkbk = "book3.xlsm"

    Workbooks.Open x.Path & "\" & copyToWrkbk
    Set y = ActiveWorkbook

    For i = 1 To Sheets.Count

        x.Activate
        Sheets(i).Select
        Range("A1:HC5").Copy
        y.Activate
        Sheets(i).Select
        Range("A1").PasteSpecial xlPasteAll

    Next i

End Sub