シートの追加・削除（Add,Delete）

最終更新日：2013-05-14

シートの追加・削除（Add,Delete）

マクロでいろいろ処理する場合に、作業用のシートを追加し、

このシート上で処理した結果を、他シートに反映させる等は良く使うテクニックです。

以下、シートの新規追加です。





Sub sample1()
　　Sheets.Add

　　ActiveSheet.Name = "新規シート"
'　　・・・いろいろな処理

　　Application.DisplayAlerts = False

　　Sheets("新規シート").Delete

　　Application.DisplayAlerts = True

End Sub

先頭に新規シートが作成されます。

最後に新規作成する場合は、

Sheets.Add After:=Sheets(Sheets.Count)
となります。

ActiveSheet.Name = "新規シート"
シート名の変更です。

作業用のシートなら、特に名前の変更は必要ありません。

Application.DisplayAlerts = False

シートを削除するときに出るアラートメッセージの表示を止めています。

Sheets("新規シート").Delete

シートの削除です。

オブジェクト変数を使用すると





Sub sample2()
　　Dim NewSht As Worksheet
　　Set NewSht = Sheets.Add

　　NewSht.Name = "新規シート"

'　　・・・いろいろな処理

　　Application.DisplayAlerts = False

　　NewSht.Delete

　　Application.DisplayAlerts = True

End Sub

こちらの方がスマートでしょうかね。

新規シートを最後に追加する場合は、

Set NewSht = Sheets.Add(After:=Sheets(Sheets.Count))

引数を()の中に入れる必要があります。

オブジェクト変数に直接入れる場合は、このように記述します。

これは、

Sheets.Add After:=Sheets(Sheets.Count)
Set NewSht = ActiveSheet

これと同じことになります。

同じテーマ「マクロVBAサンプル集」の記事

連続セル範囲の選択

エクセルのVBAでは、連続セル範囲の選択は頻繁に行われます。以下では、いろいろな記述方法を紹介します。このような表で、データ部（B3～D7）を選択または消去する方法になります。B3～B2、Ctrl+→、Ctrl+、の範囲になります。

１行置きにする行挿入（Insert）

A列に連続データが入っているとします。これを１行置きにします。ポイントは下から行うことです。上からやると、どんどん下に追いやられてしまいます。（Step2とするのもありですが、普通は下からやりましょう） Cells(Rows.Count,1).End(xlUp).Row これで、最終行を取得しています。

シートの追加・削除（Add,Delete）
シートの複数選択（Select）

複数のシートの選択方法です。シート名は、「Sheet1」「Sheet2」「Sheet3」とします。まずは、マクロの記録と同じように。シート名がわかっていれば、これで良いですが、シート名が不明な場合は困ります。

複数シートの印刷（PrintOut）

複数シートの印刷方法です。シートは、ワークシートが「Sheet1」「Sheet2」「Sheet3」があり、その他で、グラフシートもあるとします。ワークシートのみ印刷する場合です。シート名がわかっていれば、これで良いですが、シート名が不明な場合は困ります。

重複削除してコピー（AdvancedFilter）

重複データを排除して、別シートにコピーする場合です。以下の表で説明します。フィルターオプションを使います。このマクロは、この指定と同じになりります。似たような方法ですが、コピー部分を自分で記述する場合です。

ブックを安全確実に開く方法（Open）

マクロVBAの中で、他のブックを開く事はよくあります、ブックを開く時、ブックが存在しているか、既に開いてないかこれらのチェックをせずに開いてしまうと、マクロがエラー停止してしまいます。ここでは、これらのチェック方法についての具体的なVBAコードを紹介します。

ブックを閉じる（Close）

ブックを閉じる時の処理方法です。まずは、保存して閉じる場合。これは、次のように書くこともできます。Subsample2()ThisWorkbook.CloseSaveChanges:=TrueEnd Sub では、保存しないで閉じる場合。

他ブックを開いて閉じる（Open,Close）

他のブックを開いて、何らかの処理（転記等）をして、閉じる。よくあるパターンですね。簡単にサンプルのみ掲載します。Subsample2()DimwbAsWorkbookSetwb= Workbooks.Open("ブックのフルパス")…処理wb.CloseSaveChanges:=FalseEnd Sub 保存が必要な時は、

ブックを開かずにセル値を取得（ExecuteExcel4Macro,Excel.Application）

「ブックを開かずにセル値を取得」に関する検索が非常に多いようです。おそらく、ExecuteExcel4Macroに関連しているとか、もしくは、大量のファイルがある為、VBAの処理時間がかかってしまうと言うものでしょう。ExecuteExcel4Macroについての簡単な解説は、「ExecuteExcel4Macroについて」サンプルを通して、

罫線を簡単に引く（Borders,BorderAround）

エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。とにかく、簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロって何？VBAって何？｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作

トップ
マクロVBA
マクロVBAサンプル集
シートの追加・削除（Add,Delete）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBAサンプル集
シートの追加・削除（Add,Delete）