Question

我正在寻找一个宏，它将特定范围的单元格从工作表中的一个工作簿复制到新工作簿的各个工作表中。宏将从“Workbook1”的“Sheet 1”复制单元格A1：HC5，并粘贴到“Workbook2”的“Sheet 1”的相同单元格（A1：HC5）中。然后是第2张，然后是第3张，依此类推。

两个工作簿具有相同数量的具有相同工作表名称的工作表，例如第1页，第2页，等等。工作簿中的页数超过2000页。

我尝试了来自this post的代码，但它从第一个工作簿的第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

将单元格从一个工作簿的多个工作表复制到另一个工作簿中的多个工作表

1 个答案: