ExcelVBA 既存シートを別ブックにコピーする方法｜サンプルコード解説

以下のようなシーンで利用されます。

・各部門から集まったデータをそれぞれのExcelファイルから取りまとめる際に、個々のシートを一つのファイルにコピーして統合する。

・標準テンプレートのシートをコピーし、他のファイルに組み込む

・特定のデータを他のブックにコピーして、元データを保護しながら分析を行う。

1. Option Explicit
3. Sub CopySheetToAnotherWorkbook()
4.     Dim wsSource As Worksheet
5.     Dim wbTarget As Workbook
6.     Dim targetFilePath As String
7.     
8.     ' コピー元のシートを指定
9.     Set wsSource = ThisWorkbook.Sheets("Sheet1")
10.     
11.     ' コピー先のブックを開く（既存のブックにコピーする場合）
12.     targetFilePath = "C:\Users\User\Desktop\DataCsv\NewWorkbook.xlsx"
13.     Set wbTarget = Workbooks.Open(targetFilePath)
14.     
15.     ' シートを別ブックにコピー
16.     wsSource.Copy After:=wbTarget.Sheets(wbTarget.Sheets.Count)
17.     
18.     ' コピー先ブックを保存して閉じる
19.     wbTarget.Save
20.     wbTarget.Close
21.     
22.     ' 完了メッセージ
23.     MsgBox "シートが別のブックにコピーされました！"
24. End Sub

Excel VBAで「シートコピー 別ブック」は、特定のシートを別のブックに転送するための便利な操作です。特に、複数のブックにまたがるデータの統合や、必要なシートの分離保存に役立ちます。シート名の重複やリンクの整合性に注意しながら使用することで、効率的にデータのコピーを行えます。