Excelですべての空白のワークシートを削除するにはどうすればよいですか？

一方、ワークシートがたくさんあるワークブックがある場合は、空白のワークシートがいくつかあります。 次に、空白のワークシートを削除して、ファイルを保存またはアーカイブします。 複数のワークシートから空白のシートを検索して自動的に削除するにはどうすればよいですか？

VBAコードを含むすべての空白のワークシートを削除します

Kutools forExcelで空白のワークシートをすべて削除します

VBAコードを含むすべての空白のワークシートを削除します

空白のワークシートを確認してXNUMXつずつ削除するのは面倒ですが、次のVBAコードを使用すると、すべての空白のワークシートを一度に簡単に削除できます。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

VBA：空白のワークシートをすべて削除します

Sub DeleteBlankWorksheets（） 'Update 20130830 Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Ws In Application.Worksheets If Application.WorksheetFunction.CountA（Ws.UsedRange）= 0 Then Ws.Delete End次のApplication.ScreenUpdating = True Application.DisplayAlerts = True EndSubの場合

3。 次に、 F5 キーを押すと、空白のワークシートがすべて一度に削除されます。

Kutools forExcelで空白のワークシートをすべて削除します

VBAコードに慣れていない場合は、簡単なツールを紹介できます- Kutools for Excelそのと 空白のワークシートを削除する 機能、あなたはワンクリックですべての空のワークシートを削除することができます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手.

Kutools for Excelをインストールしたら、次の手順に従ってください。

1に設定します。 OK をクリックします。 クツールズプラス > ワークシート > 空白のワークシートを削除する、スクリーンショットを参照してください：

2. また、空白のワークシートをすべて削除するかどうかを通知するプロンプトボックスが表示されます。スクリーンショットを参照してください。

3。 次に、をクリックします 可、および空白のワークシートは正常に削除されました。 スクリーンショットを参照してください：

この機能について詳しく知りたい場合は、をクリックしてください。 空白のワークシートを削除する.

関連記事：

Excelで非表示のワークシートを削除するにはどうすればよいですか？