第66回.シートのコピー・移動・削除（Copy,Move,Delete）
シートのコピーや移動をしたり、また削除する場合の説明です。
マクロVBAでは、雛形シートをコピーして使ったり、不要なシートを削除することは頻繁にあります。
Worksheet.Copyメソッド、Worksheet.Moveメソッド
これらの、WorkSheetオブジェクトのメソッドを使用します。
Worksheet.Deleteメソッドを使用します。
シートのコピー・移動
シートを移動するには、Worksheet.Moveメソッドを使います。
シートのコピー
シートの移動
Worksheets("シート名")
オブジェクト変数(Worksheet型)
等になります。
| Before | コピーしたシートを特定のシートの直前の位置に挿入するときに、そのシートを指定します。 ただし、引数 After を指定すると、引数 Before を指定することはできません。 |
| After | コピーしたシートを特定のシートの直後の位置に挿入するときに、そのシートを指定します。 ただし、引数 Before を指定すると、引数 After を指定することはできません。 |
シートのコピーを行った場合は、コピーで作成された新規シートがアクティブになります。
シートの移動を行った場合は、移動したシートがアクティブになります。
ただし、コピー・移動の対象となるシートが非表示シートの場合は別のシートがアクティブになります。
引数 Before,Afterの両方を省略した場合は新規ブックにコピー・移動される
新規ブックが自動的に作成され、シートはその新規ブック内にコピー・移動されます。
エクセルの操作で、シートの「移動またはコピー」で、新規ブックを選んだ場合と同じです。
Copyメソッドの使用例
Worksheets(1).Copy
Worksheets(1)だけの、新規ブックが作成されます。
Worksheets(1).Copy After:=Worksheets(Worksheets.Count)
1番目のシートを最後のシートの後ろにコピーしています。
Moveメソッドの使用例
Sheets("シート名").Move After:=Sheets(Sheets.Count)
Sheets("シート名")をシートの最後に移動しています。
シートの削除
Worksheets("シート名")
オブジェクト変数(Worksheet型)
等になります。
Deleteメソッドの使用例
Worksheets(1).Delete
先頭のシートが削除されます。
しかし、
シートを削除すると、以下のメッセージが表示され、マクロが中断します。
57回.Applicationのプロパティで説明しましたが、
Application.DisplayAlerts = False
つまり、
Application.DisplayAlerts = False
Worksheets(1).Delete
このようにVBAを書きます。
Application.DisplayAlerts = Falseは、
Worksheets(1).Deleteより前に実行されていれば、どの場所、どの時点でも大丈夫です。
シートのコピー・移動・削除の関連記事
同じテーマ「マクロVBA入門」の記事
第63回.ブックを開く（Open,Add）
第64回.ブックを閉じる・保存（Close,Save,SaveAs）
第65回.シートの挿入、名前の変更（Add,Name）
第66回.シートのコピー・移動・削除（Copy,Move,Delete）
第67回.総合練習問題7
第68回.シートの保護、ブックの保護（Protect）
第69回.シートの非表示（Visible,Hidden）
第70回.ウィンド枠の固定（FreezePanes）
第71回.印刷（PrintOut）
第72回.印刷プレビュー（PrintPreview）
第139回.エクスポート（PDF/XPS）
新着記事NEW ・・・新着記事一覧を見る
AI時代におけるRPAとVBAの位置づけ - 補完技術としての役割と未来 -｜生成AI活用研究(2025-05-12)
スマートExcel｜AI×Excel：AIと進化するExcelの新常識｜生成AI活用研究(2025-05-11)
VBA開発の現場で生成AIはどう使う？ そのメリットと潜むリスク｜生成AI活用研究(2025-05-11)
CursorでVBAを直接?編集・実行できる環境構築について｜生成AI活用研究(2025-05-10)
Geminiと100本ノック 17本目：重複削除（ユニーク化）｜生成AI活用研究（5月10日）
Geminiと100本ノック 16本目：無駄な改行を削除｜生成AI活用研究（5月6日）
AIがあればVBAはできる：セルに絵文字を入れる｜生成AI活用研究(2025-05-07)
Geminiと100本ノック 15本目：シートの並べ替え｜生成AI活用研究（5月6日）
Geminiと100本ノック 14本目：社外秘シート削除｜生成AI活用研究（5月4日）
Geminiと100本ノック 13本目：文字列の部分フォント｜生成AI活用研究（5月4日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.ひらがな⇔カタカナの変換｜エクセル基本操作
6.RangeとCellsの使い方｜VBA入門
7.メッセージボックス(MsgBox関数)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.FILTER関数（範囲をフィルター処理）｜エクセル入門
10.条件分岐（Select Case）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。