在工作簿之间复制和粘贴 VBA

Question

请多多包涵，我还在学习中VBA需要一点帮助。

我正在尝试将数据从一个工作簿复制到另一个工作簿，尽管我已经找到了很多关于这个问题的答案，但我无法做到理解代码非常复杂。我希望有人可以帮助我提供一个非常容易阅读和理解的基本代码。

我目前正在寻找从 3 个不同的工作簿中复制所有数据并将其粘贴到 3 个工作表中的 1 个工作簿中。

例如，我有 3 个名为

的工作簿

AA BB 抄送

我想从这些工作簿中复制所有数据（仅值），然后粘贴到名为

的工作簿中

主要

但我希望 AA.to 中的数据进入 Main Worksheet1 并但我希望来自 BB 的数据进入 Main Worksheet2 并且但我希望来自 CC 的数据进入 Main Worksheet3

希望我已经正确解释了这个问题，感谢您的帮助。

Answer 1

由于您没有提供任何代码，这应该足以让您入门。您需要对其进行编辑和修复以满足您的需要。

Sub test()
    Dim Wb1 As Workbook, Wb2 As WorkBook, Wb3 As Workbook
    Dim MainBook As Workbook

    'Open All workbooks first:
    Set Wb1 = Workbooks.Open(" path to copying book ")
    Set Wb2 = Workbooks.Open(" path to copying book ")
    Set Wb3 = Workbooks.Open(" path to copying book ")
    Set MainBook = Workbooks.Open(" path to destination book ")

    'Now, copy what you want from wb1:
    wb1.Sheets("Sheet1").Cells.Copy
    'Now, paste to Main worksheet:
    MainBook.Sheets("Sheet1").Range("A1").PasteSpecial

    'Now, copy what you want from wb2:
    wb2.Sheets("Sheet1").Cells.Copy
    'Now, paste to Main worksheet:
    MainBook.Sheets("Sheet2").Range("A1").PasteSpecial

    'Now, copy what you want from wb3:
    wb3.Sheets("Sheet1").Cells.Copy
    'Now, paste to Main worksheet:
    MainBook.Sheets("Sheet3").Range("A1").PasteSpecial

    'Close Wb's:
    Wb1.Close
    Wb2.Close
    Wb3.Close
    MainBook.Save
    MainBook.Close

End Sub

在工作簿之间复制和粘贴 VBA

Copying and Pasting between Workbooks VBA

excel

vba

copy-paste