ワークシートの削除

ワークシートを削除します。削除したいワークシートを表すWorksheetオブジェクトに対して「Delete」メソッドを使います。

Dim sheet1 As Worksheet

Set sheet1 = Worksheets(1)
sheet1.Delete

まとめて次のように記述して頂いても構いません。

Worksheets(1).Delete

サンプルプログラム

では簡単なサンプルで試してみましょう。

testsheetedit4.bas

Sub テスト()

    Worksheets(2).Delete

End Sub

上記マクロを実行すると次のようになります。

ワークシートを削除する場合には警告ウィンドウが表示されます。もし問題がなければ「削除」ボタンをクリックして下さい。

2枚目にあったワークシートが削除されました。

警告ウィンドウを表示せずにワークシートを削除する

ワークシートの削除のように警告ウィンドウが表示されるといったんプログラムの流れが切れます。もし警告ウィンドウを表示したくない場合にはApplicationオブジェクトの「DisplayAlerts」プロパティで設定を行います。詳しくは『メッセージウィンドウの非表示』を参照して下さい。

では実際に試してみましょう。

testsheetedit5.bas

Sub テスト()

    Application.DisplayAlerts = False
    
    Worksheets(2).Delete

    Application.DisplayAlerts = True

End Sub

上記マクロを実行すると次のようになります。

今度は警告ウィンドウが表示されずにワークシートが削除されました。

OfficePro