Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » 最後・末尾・右端のシートをExcel VBAで削除する

最後・末尾・右端のシートをExcel VBAで削除する

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2211 ビルド15831.20190 Microsoft Store）

「マクロ最後のシート削除」
「VBA 末尾シート削除」
「excel vba 一番右のシート削除」
といった検索キーワードでアクセスが時折あります。

［スポンサードリンク］

最後・末尾・右端のシートを削除するサンプルマクロ

複数のシートが存在するブックがアクティブな状態で、以下のExcelマクロを実行してください。

Sub 最後のシートを削除する()
　Dim cnt As Long
　cnt = Sheets.Count
　Sheets(cnt).Delete
End Sub

「このシートは完全に削除されます。続けますか？」
確認メッセージボックスが表示され［削除］ボタンを押すと、最後・末尾・右端のシートが削除されます。

SheetsコレクションのCountプロパティを使って、

シートの枚数を取得し、Long型の変数cntに代入しておいて、

cnt = Sheets.Count

Sheetsコレクションの既定メンバーである_Defaultプロパティの引数に、

変数cntに代入されているシート枚数を指定することで、

Sheets(cnt).Delete

最後・末尾・右端のシートを取得して、Worksheet.Deleteメソッドで

削除しています。

Sheets(cnt).Delete

意味がわかれば、変数cntを使わずに

Sheets(Sheets.Count).Delete

としてもイイかなと感じます。

「このシートは完全に削除されます。続けますか？」
確認メッセージを表示させたくない場合は、削除前にApplicationオブジェクトのDisplayAlertsプロパティに

論理値Falseを指定してください。

Sub 最後のシートを削除する_確認メッセージ無し()
　Application.DisplayAlerts = False
　Sheets(Sheets.Count).Delete
End Sub

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » 最後・末尾・右端のシートをExcel VBAで削除する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Sheets・Worksheet」の記事一覧