【VBA入門】シートをコピーする方法

公開日：2016-7-19
プロナビTOP / プログラミング初心者向け技術系ノウハウ・まとめ

Pocket

複数のシートを組み合わせて資料を作りたい場合やデータのバックアップを取りたい場合などに、シートのコピー機能は非常に便利です。それではVBAでのシートのコピー方法についてご説明します。

1 シートのコピー設定方法
2 シートのコピー先の指定
3 まとめ

シートのコピー設定方法

まずコピー元のシートをWorksheetsで指定し、続けてCopyメソッドによってコピーを行います。

＜コード＞

ActiveSheet.Copy   '選択中のシートをコピー'
Worksheets("Sheet1").Copy  'シート名（Sheet1）を指定してコピー'

1 2	ActiveSheet.Copy '選択中のシートをコピー' Worksheets("Sheet1").Copy 'シート名（Sheet1）を指定してコピー'

＜実行例＞
0017 e1468301568711 - 【VBA入門】シートをコピーする方法
新しいブックが作成され、シートがコピーされます。

シートのコピー先の指定

新しいブックではなく、現在使用しているブックや既存のブックにシートをコピーしたいという場合はコピー先の指定が必要です。シートのコピー先はBeforeで指定したシートの左隣に、Afterで指定したシートの右隣に設定することができます。
ただし、BeforeとAfterを同時に指定することはできません。もちろん、両方指定しなくてもコピー先を特定することができるので、重複して指定する必要はないということですね。

＜コード＞

Sheets("Sheet1").Copy Before:=Sheets("Sheet3")	'同じブック内にSheet1をコピー'
Sheets("Sheet1").Copy After:=Workbooks("Book2").Sheets("Sheet3")　'他のブック（Book2）にコピー'

1 2	Sheets("Sheet1").Copy Before:=Sheets("Sheet3") '同じブック内にSheet1をコピー' Sheets("Sheet1").Copy After:=Workbooks("Book2").Sheets("Sheet3")　'他のブック（Book2）にコピー'

＜実行例：同じブック内にSheet1をコピー＞
0026 e1468301598338 - 【VBA入門】シートをコピーする方法

＜実行例：他のブック（Book2）にコピー＞
0036 e1468301613446 - 【VBA入門】シートをコピーする方法

＜NG例＞

Sheets("Sheet1").Copy Before:=Sheets("Sheet3"), After:=Sheets("Sheet3")
'BeforeとAfterを同時に指定しているためエラーが発生します。'

1 2	Sheets("Sheet1").Copy Before:=Sheets("Sheet3"), After:=Sheets("Sheet3") 'BeforeとAfterを同時に指定しているためエラーが発生します。'