エクセルマクロ(EXCEL VBA) その14 シートの複製(Sheets Copy)
ここまでで、結構色々なことをご紹介してきたので、かなり、いろんなことができるようになってきた・・・はずです。
今回はシートの複製についてご紹介します。
マクロでエクセルのデータを扱うときに、とても危険なことがあります。
それは、思ってもみないセルを指定してしまっていて、ヘンな文字や数字を書き込んでしまうことです。
実は僕もセルの指定をよく間違うので、いちいち「ここかな？」と探りながらやっているのですが、マクロでヘンな数字を書き込んでしまうと、「Ctrl+Z」や「やり直しボタン」で戻れないのでとても危険です。
ということで、大事なデータを扱うときは、一旦シートを丸ごとコピーしてから作業すると安全です。
なにしろ、元のデータはいじらないわけなので。
まず、こういう表があったとします。
このSheet1をコピーしてみます。
開発→Visual Basic
挿入→標準モジュールを押して、
Sub sheet_copy()
Sheets("sheet1").Copy
End Subと、打ち込んでください。
これを実行すると新規ブックが作成されて、そこに今のSheet1がコピーされました。
もう一つブック（エクセルファイル）が生成されてもいい場合はいいんですが、そうじゃなくて、シートだけをコピーしたいので、もう少し書き込みます。
Sheets("sheet1").Copy after:=Sheets("sheet1")と書き足してください。
これを実行すると
このように、sheet1の後に、Sheet1(2)という名前でコピーすることができました！
ちゃんと数値はそのままななので大丈夫そうです。
ちなみに、先程 after と書いたところを Before とすると、sheet1の前にSheet1(2)が入ります。
ところで、名前が Sheet1(2)だと意味が分かりにくいというときがあるかもしれません。
「整理用」というシート名にしたいと思ったら、どうすればよいでしょうか？
シートをコピーし終わったとき、そのコピー先のシート（ここではSheet1(2)）がアクティブになっています。
なので、続けてアクティブシートの名前を変えるという命令を出します。
ActiveSheet.Name = "整理用"と、追記してください。
これを実行すると
うまくシートをコピーして、整理用という名前を付けることができました。
次回は、実際にこのシートの内容を整理してみます。
今回の最終的なコード
Sub sheet_copy()
Sheets("sheet1").Copy after:=Sheets("sheet1")
ActiveSheet.Name = "整理用"
End Sub
宿題-14
整理用シートをコピーして、Sheet1の前に「劇場リスト」という名前のシートを作ってください。
もくじ（エクセルマクロ EXCEL VBA）
→ 他にどんな作業ができたら便利か思いついたらぜひ教えてください！（うまく実現できるかわからないけど・・・。）
http://entre-news.jp/contact
（文：森脇孝／エントレ）
最近の記事
5
13
3
152
11
11
17
12
12
37
22
20
1
13
≫もっと見る
編集部ピックアップ！
エントレがおすすめする他の舞台
