Excelで指定されたシートまたは現在のシート以外のすべてのシートを削除するにはどうすればよいですか？

Excelワークブック内の指定されたシートまたは現在アクティブなシート以外のすべてのシートを削除するには、以下に示す方法で対処できます。

VBAコードを使用して指定されたシート以外のすべてのシートを削除する
Kutools for Excelを使用して、現在アクティブなシート以外のすべてのシートをワンクリックで削除する

VBAコードを使用して指定されたシート以外のすべてのシートを削除する

以下のVBAコードを使用すると、Excelのワークブック内の指定されたシート以外のすべてのシートを削除できます。

Alt + F11キーを同時に押して、Microsoft Visual Basic Applicationウィンドウを開きます。

挿入 > モジュールをクリックし、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBAコード: 指定されたシート以外のすべてのシートを削除する

Sub DeleteSheets1() Dim xWs As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then xWs.Delete End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

注釈:

1. 「Sheet1」と「Sheet2」は現在のワークブック内で保持したいシートです。必要に応じてこれらを変更できます。

2. すべてのシートを削除して複数の指定されたシートを保持したい場合は、コードの6行目にあるThenキーワードの前にAnd xWs.Name <> "あなたのシート名"を追加します。例: If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" And xWs.Name <> "あなたのシート名" Then

3. 1つのシートだけを保持してワークブック内のすべてのシートを削除したい場合、コード内のすべてのAnd 条件を削除してください。例えば、現在のワークブック内でSheet1を保持するには、6行目のコードを次のように変更する必要があります: If xWs.Name <> "Sheet1" Then

Kutools for Excelを使用して、現在アクティブなシート以外のすべてのシートを削除する（ワンクリックのみ）

Kutools for ExcelのDelete All Inactive Sheets機能を使用すると、現在アクティブなシート以外のすべてのシートをワンクリックで簡単に削除できます。

Kutools Plus > ワークシート > Delete All Inactive Sheetsをクリックします。

3. ダイアログボックスが表示されます。アクティブなシート以外のすべてのシートを削除することを確定する場合はOKボタンをクリックし、そうでない場合はキャンセルボタンをクリックします。

これで、ワークブック内の現在アクティブなシート以外のすべてのシートが削除されます。

デモ: Kutools for Excelを使用して現在アクティブなシート以外のすべてのシートを削除する