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

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

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

Удаление всех пустых листов с помощью Kutools для 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. После нажатия Да появится диалоговое окно, показывающее количество удаленных листов. Нажмите ОК, чтобы закрыть его, и все пустые листы будут удалены.

Удаление всех пустых листов с помощью Kutools для Excel

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

1. Откройте книгу, из которой вы хотите удалить пустые листы, и нажмите Kutools Plus > Лист > Удалить пустые листы. См. скриншот:

Связанные статьи:

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