ワークブック間でコピーして貼り付けるVBA

Question

私はまだVBAを学んでおり、少し助けてもらえます。

多くの回答が見つかったにもかかわらず、あるブックから別のブックにデータをコピーしようとしています。 コードが非常に複雑であると理解しています。私は誰かが基本的なコードを手助けして、読みやすく理解しやすいと思っていました。

私は現在、3つのワークブックからすべてのデータをコピーし、3つのワークシートにわたって1つのワークブックに貼り付けようとしています。例えば

私はこれらのワークブックから、私はすべてのデータをコピーしたい

AA BB CC

（値のみ）と呼ばれる3つのワークブックを持っており、

メイン

と呼ばれるワークブックに貼り付けます

しかし、私はそのデータをAAからMain Worksheet1に入れたいと思っています。 しかし、私はBBのデータをMain Worksheet2とに入れたいです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