Как удалить пустые листы из книг

Предположим, у вас есть большая книга с несколькими листами, но в этой книге есть несколько пустых листов без какого-либо содержимого. Чтобы сделать книгу более профессиональной и формальной, вы хотите удалить эти пустые листы из книги. Вместо того, чтобы удалять пустые листы один за другим, я представляю методы быстрого удаления всех пустых листов.

Удалить пустые листы с помощью VBA

Удалить пустые листы с помощью Kutools for Excel

---

Удалить пустые листы с помощью VBA

Здесь я представляю VBA, который поможет вам быстро удалить все пустые листы из открытой книги.

1. Нажмите Alt + F11 ключи для включения Microsoft Visual для базовых приложений окно.

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, и появится диалоговое окно с напоминанием о необходимости удаления пустых листов, нажмите Да продолжать снимать, Нет чтобы отменить этот VBA.

4. После нажатия Да, появится диалоговое окно с информацией о количестве удаленных листов, нажмите OK чтобы закрыть его, и все пустые листы в этот момент удалены.

---

Удалить пустые листы с помощью Kutools for Excel

Для некоторых зеленых рук Excel VBA - довольно сложный метод для выполнения, но с Kutools for ExcelАвтора Удалить пустые листы функция, вы можете быстро удалить все пустые листы из книги с помощью трех щелчков мыши!

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Включите книгу, из которой вы хотите удалить пустые листы, и нажмите Кутулс Плюс > Рабочий лист > Удалить пустые листы. Смотрите скриншот:

 

---

Относительные статьи:

• Как подсчитать и удалить дубликаты из списка в Excel?
• Как удалить строку после n-го символа в Excel?
• Как удалить текст в скобках / скобках в Excel?
• Как удалить формы линий в Excel?

---