在VBA

Question

请耐心等待我，我仍然在学习VBA，可以提供一些帮助。

我正在尝试将数据从一个工作簿复制到另一个工作簿，即使我已经找到了很多答案，我也无法做到 理解代码非常复杂。我希望有人可以帮助我使用一个非常容易阅读和理解的基本代码。

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

例如，我有3个名为

的工作簿

AA BB CC

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

的工作簿中

主要

但是我希望AA中的数据进入主工作表1和 但我希望BB的数据进入主工作表2和 但我希望来自CC的数据进入主工作表3

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

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