vba 別のブックへデータコピー

VBAで別のブックへデータをコピーしたいのですね。

参考コードです。

Sub Macro1()

    Windows("Aブック.xlsm").Activate
    
    Sheets("Sheet1").Select
    Range("A1").Select
    
    Selection.Copy
    
    Windows("Bブック.xlsx").Activate
    
    Sheets("Sheet1").Select
    Range("A1").Select
    
    ActiveSheet.Paste

End Sub

Sub Macro1()

Windows("Aブック.xlsm").Activate

Sheets("Sheet1").Select

Range("A1").Select

Selection.Copy

Windows("Bブック.xlsx").Activate

Sheets("Sheet1").Select

Range("A1").Select

ActiveSheet.Paste

End Sub

Aブック.xlsmファイルのSheet1シートのA1セルの内容をコピーして、Bブック.xlsxファイルのSheet1シートのA1セルに貼り付けるコードです。

これぐらいはマクロの記録で作りましょう。

ファイル名、シート名、セル名などを変えたり、ループをいくつか回すと、活用の幅は広がると思います。