Как удалить пустые листы из книги 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 Sub3. Нажмите клавишу F5 или кнопку Выполнить, чтобы выполнить VBA. Появится диалоговое окно с запросом на удаление пустых листов. Нажмите Да для продолжения или Нет для отмены операции.
4. После нажатия Да появится диалоговое окно, показывающее количество удаленных листов. Нажмите ОК, чтобы закрыть его, и все пустые листы будут удалены.
Удаление всех пустых листов с помощью Kutools для Excel
Для начинающих пользователей Excel использование VBA может быть довольно сложным методом. Но с помощью функции Удалить пустые листы из Kutools для Excel вы сможете быстро удалить все пустые листы из книги всего за три клика мышью!
1. Откройте книгу, из которой вы хотите удалить пустые листы, и нажмите Kutools Plus > Лист > Удалить пустые листы. См. скриншот:
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Связанные статьи:
- Как подсчитать и удалить дубликаты из списка в Excel?
- Как удалить строку после n-го символа в Excel?
- Как удалить текст внутри скобок/круглых скобок в Excel?
- Как удалить линии фигур в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек