シートを削除：不定数のシート名に対応

公開日：2023-07-04　最終更新日：2023-07-04

シートを削除：不定数のシート名に対応

不要となったシートを削除するマクロVBAのサンプルです。
不定数のシート名を指定して削除できるようにSubを作成します。

名前で指定されたシートがない場合は特に何もしません。
指定されたシート名のシートがある場合のみ削除します。

削除するシートへの参照が存在する場合は、その参照は「#REF!」となってしまいますのでご注意ください。
削除シートへの参照は、
・数式
・名前定義
・入力規則
・条件付き書式
・グラフ
・図形
等々、いろいろな場所で使われている可能性があり、これらを全てマクロVBAで完全にチェックし対処するのは困難です。

完全にチェックするのは困難というのは、主に処理時間的な問題と、存在した場合の対処をどうするかが難しいという事です、

不定数のシートを削除するVBA


  
    
      Sub delSheets(ParamArray p())

      　　Dim i As Long

      　　On Error Resume Next

      　　Application.DisplayAlerts = False

      　　For i = LBound(p) To UBound(p)

      　　　　Sheets(p(i)).Delete

      　　Next

      　　Application.DisplayAlerts = True

      　　On Error GoTo 0

      End Sub

使用例


  
    
      Sub sample()

      　　Call delSheets("シート2", 3, "4")

      End Sub

以下のシートが対象となります。

シート名が"シート2"
3番目のシート
シート名が "4"

次の章で解説します。

上記のVBAの解説

シート削除の基本

シート削除の基本については以下を参照してください。

シートのコピー・移動・削除（Copy,Move,Delete）｜VBA入門

・シートのコピー・移動・シートの削除・シートのコピー・移動・削除の関連記事

ParamArray

指定できるシート数を可変にする為、ParamArrayを使っています。
ParamArrayの詳細については以下を参照してください。

第133回.引数の数を可変にできるパラメーター配列（ParamArray）

・引数の構文・名前付き引数について・ParamArrayキーワード（パラメーター配列）とは・ParamArrayキーワード（パラメーター配列）の使用例・サイト内の関連ページ

Seets

シートにはグラフシート等もあり得ますので、
Worksheets
ではなく、
Sheets
を使っています。

指定されたシート名がない場合

はエラーとなるため、
On Error Resume Next
これでエラーを無視しています。

実引数を数値で指定した場合

ParamArray p()
これはVariant型になりますので、数値で指定した場合はシート名ではなくシートのインデックスを指定したものとなります。
実引数が同じ数値でも、3と"3"では違います。
3と指定した場合は、インデックスの3、つまり2番目のシートになります。
"3"と指定した場合は、シート名が"3"のシートになります。

シート削除時のアラート

シート削除時のアラートに対応する為、
Application.DisplayAlerts = False
これで警告を無視してシートを削除します。

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

シートを名前順に並べ替える

シートを名前順に並べ替える方法になります。配列を使っていますが、配列が難しい場合は、シートに書き出して処理すれば良いでしょう、並べ替えもシート上なら簡単です。上記では、シート名を文字列として処理しています。

数式内の不要なシート名を削除する（HasFormula）

複数のシートにまたがる数式を入力していると、自身のシート名!が数式についてしまいます、この自身のシート名!は不要であり、式を見づらくしてしまいます、この不要なシート名を、マクロVBAで一括削除します。ブックの全シート、全セルを対象として、数式の中から、自身のシート名!を削除するマクロVBAになります。

数式の参照しているセルを取得する

セルに入っている数式の参照しているセルを取得するには、RangeのPrecedentsプロパティを使いますが、このプロパティは他のシートの参照には対応していません。また、セルの参照先を取得するプロパティには、Dependentsプロパティがあります。

増殖した条件付き書式を整理統合する

・条件付き書式の増殖に関する、Microsoft サポート・増殖した条件付き書式の実例と対応・簡単なVBAでの対応・VBAで条件付き書式を整理統合した結果・今回のVBAコードの発想について・Application.ConvertFormulaメソッド・増殖した条件付き書式を整理統合するVBA ・条件付き書式で設定できる書式・増殖した条件付き書式を整理統合するVBAの使い方・増殖した条件付き書式を整理統合の最後

条件付き書式で変更された書式を取得する

条件付き書式が設定されている場合、当然ですが見た目は、本来そのセルに設定されている書式ではなく、条件付き書式の条件によって設定されている書式になります。VBAで、この条件付き書式によって設定された書式を取得します。これが取得できるようになったのは、Excel2010からですので、このページで紹介するVBAコードはE…

セル結合/解除でセル値を退避/回復

・セル結合/解除でセル値を退避/回復のVBA ・退避したセル値の全削除と一覧出力・セル結合/解除の最後に

セル結合なんて絶対に許さないんだからね

セル結合の弊害はネットに溢れているのでここで改めて説明の必要はないでしょう。とはいえ、ついついセル結合してしまう事ありますよね、人間だからね。VBAで適切に処理すればセル結合もきちんと処理は可能です。

セルの数式をネスト色分けしてコメント表示

・セルの数式をネスト色分けしてコメント表示のVBA ・セルの数式をネスト色分けしてコメント表示の使用例・セルの数式をネスト色分けしてコメント表示の最後に

セル結合して表を見やすくする（非推奨）

・セル結合して表を見やすくするVBA ・マクロVBAのショートカット登録・セル結合して表を見やすくするVBAの使い方

シートを削除：不定数のシート名に対応
セル番地でバラバラに指定されたセルの削除

シート内の複数のセルを削除します。削除するセルはバラバラです。A2,A4,B5:B7,C3,E5,E6,E9,… さて、どういうVBAを書いたら良いでしょうか。セル削除後は上方向にシフトします。セルの削除についての基本は以下を参照してください。

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
シートを削除：不定数のシート名に対応

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

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

VBAサンプル集
シートを削除：不定数のシート名に対応