- 公開日：2016-7-19
- プロナビTOP / プログラミング初心者向け技術系ノウハウ・まとめ
複数のシートを組み合わせて資料を作りたい場合やデータのバックアップを取りたい場合などに、シートのコピー機能は非常に便利です。それではVBAでのシートのコピー方法についてご説明します。
シートのコピー設定方法
まずコピー元のシートをWorksheetsで指定し、続けてCopyメソッドによってコピーを行います。
＜コード＞
|
1 2 |
ActiveSheet.Copy '選択中のシートをコピー' Worksheets("Sheet1").Copy 'シート名（Sheet1）を指定してコピー' |
＜実行例＞
新しいブックが作成され、シートがコピーされます。
シートのコピー先の指定
新しいブックではなく、現在使用しているブックや既存のブックにシートをコピーしたいという場合はコピー先の指定が必要です。シートのコピー先はBeforeで指定したシートの左隣に、Afterで指定したシートの右隣に設定することができます。
ただし、BeforeとAfterを同時に指定することはできません。もちろん、両方指定しなくてもコピー先を特定することができるので、重複して指定する必要はないということですね。
＜コード＞
|
1 2 |
Sheets("Sheet1").Copy Before:=Sheets("Sheet3") '同じブック内にSheet1をコピー' Sheets("Sheet1").Copy After:=Workbooks("Book2").Sheets("Sheet3") '他のブック（Book2）にコピー' |
＜実行例：同じブック内にSheet1をコピー＞
＜実行例：他のブック（Book2）にコピー＞
＜NG例＞
|
1 2 |
Sheets("Sheet1").Copy Before:=Sheets("Sheet3"), After:=Sheets("Sheet3") 'BeforeとAfterを同時に指定しているためエラーが発生します。' |
まとめ
シートのコピー元はWorksheets（またはSheets）で指定し、コピー先はBeforeやAfterで指定します。また、コピー先を指定しない場合は新しいブックを作成することができるので、新規にデータ加工を行いたいときなどに役立ちそうですね。
プログラミングで挫折しそうなら、現役エンジニアにマンツーマンで相談してみませんか？オンラインのプログラミングスクール「TechAcademy」のメンターが対応。
この記事が気に入ったら
いいね！しよう
プロナビの最新情報をお届けします
あわせて読みたい
