Excelワークブックから空のシートを削除する方法

多数のシートを持つ大規模なワークブックがあり、その中に内容が全くない空のシートが含まれているとします。ワークブックをよりプロフェッショナルで正式なものにするために、これらの空白のシートを削除したいと考えています。1つずつ空のシートを削除する代わりに、このガイドではすべての空白シートを迅速に削除する方法を紹介します。

VBAを使用してすべての空白シートを削除する

Kutools for Excelを使用してすべての空白シートを削除する

VBAを使用してすべての空白シートを削除する

ここでは、開いているワークブックからすべての空白シートを迅速に削除するのに役立つVBAを紹介します。

1. Alt + F11キーを押して、 Microsoft Visual for Basic Applicationsウィンドウを有効にします。

2. 「挿入」>モジュールをクリックし、以下のVBAコードを新しく開かれたモジュールウィンドウに貼り付けます。

VBA: 空白のシートを削除する

Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
    Dim xWs As Worksheet
    Dim xAlert As Boolean
    Dim xCount As Long
    xAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
    For Each xWs In ActiveWorkbook.Worksheets
        If (Application.CountA(xWs.Cells) = 0) And _
           (xWs.Shapes.Count = 0) Then
            xWs.Delete
            xCount = xCount + 1
        End If
    Next
    MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
    Application.DisplayAlerts = xAlert
End Sub

3. F5キーを押すか、「実行」ボタンをクリックしてVBAを実行します。空のシートを削除するかどうかを確認するダイアログが表示されます。 「はい」をクリックして続行するか、「いいえ」をクリックして操作をキャンセルします。

4. 「はい」をクリックすると、削除されたシートの数を示すダイアログが表示されます。「OK」をクリックして閉じると、すべての空白のシートが削除されます。

Kutools for Excelを使用してすべての空白シートを削除する

Excel初心者にとって、VBAを使用するのは少し難しい方法かもしれません。しかし、Kutools for Excelの「 空白のワークシートを削除する」機能を使えば、3回のマウスクリックでワークブック内のすべての空のシートを簡単に削除できます！

1. 空のシートを削除したいワークブックを有効にし、Kutools Plus > ワークシート > 空白のワークシートを削除 をクリックします。スクリーンショットをご覧ください：

関連記事：

• Excelでリスト内の重複をカウントして削除するにはどうすればよいですか？
• Excelでn番目の文字以降の文字列を削除するにはどうすればよいですか？
• Excelで括弧/カッコ内のテキストを削除するにはどうすればよいですか？
• Excelで線の図形を削除するにはどうすればよいですか？