このワンパターンでOK！「シートごとコピー」するExcelマクロをマスター

コピー元ファイルのシートをコピー、コピー先ファイルにペースト

コピー元のファイル名を変数bに入れます。「Dir(ファイルパス)」を使います。変数b_pathの中身はパスなのでDir(b_path)と書くとファイル名だけを抜き出せます。

b = Dir(b_path)

2つのファイルが開いている状態では「Workbooks("ファイル名").Activate」で対象のファイルを選択します。ファイル名が入っている変数bを利用します。Workbooksにsを付けるのを忘れないでください。

変数を利用するときはファイル名に" "（ダブルクォーテーション）は不要です。

Workbooks(b).Activate

「Sheets("売上").Copy」で「売上」シートをコピーします。「コピー先」であるWorkbooks(a)の一番左側のシートになるように貼り付けます。これを「Before:=Workbooks(a).Sheets(1)」と表します。

Sheets(1)のシート名に" "（ダブルクォーテーション）がないことに注目してください。シート名の部分に名前ではなく数字が入ると、シートの名前ではなく順番を表します。Sheets(1)は「左から数えて1番目（＝一番左）のシート」という意味です。その前（Before）は、一番左のシートのさらに左横に貼り付けなさいということです。

Sheets("売上").Copy Before:=Workbooks(a).Sheets(1)

コピー元ファイルを閉じる

コピー先ファイルを選びます（Activate）。
その後コピー元ファイルを閉じます（Close）。

Workbooks(a).Activate
Workbooks(b).Close

すべてつなげると、次のようになります。

Dim a　’コピー先ファイルの名前
Dim b_path　’コピー元ファイルのパス
Dim b　’コピー元ファイルの名前

a = ThisWorkbook.Name

b_path = Application.GetOpenFilename

If b_path = False Then
MsgBox "処理を中断しました"
Exit Sub
Else
Workbooks.Open b_path
End If

b = Dir(b_path)

Workbooks(b).Activate
Sheets("売上").Copy Before:=Workbooks(a).Sheets(1)

Workbooks(a).Activate
Workbooks(b).Close

完成させて動かしてみよう

「取込」という名前を付け、マクロを書きましょう。

ボタンにマクロを登録し、保存した後に押してみてください。ウィンドウで「コピー元.xlsx」を選ぶと「売上」シートがマクロがあるファイルの一番左にくれば成功です！

今後、他ファイルのシートを持ってくるときは、このマクロをコピー＆ペーストしましょう。シート名を変更するだけで再利用できます。

（本稿は、寺澤伸洋著『4時間のエクセル仕事は20秒で終わる』を抜粋、再構成したものです）