Как удалить все пустые листы в Excel?
Если у вас есть книга, содержащая множество листов, и среди них есть несколько пустых листов. И теперь вы хотите удалить пустые листы для экономии места или архивирования файла. Как можно найти пустые листы среди множества других и автоматически удалить их?
Удаление всех пустых листов с помощью кода VBA
Удаление всех пустых листов с помощью Kutools для Excel
Удаление всех пустых листов с помощью кода VBA
Проверка и удаление пустых листов по одному может быть утомительным, но с помощью следующего кода VBA вы сможете легко удалить все пустые листы сразу.
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.
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 If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
3. Затем нажмите клавишу F5, и все пустые листы будут удалены сразу.
Удаление всех пустых листов с помощью Kutools для Excel
Если вы не знакомы с кодом VBA, позвольте представить вам простой инструмент — Kutools для Excel. С помощью функции Удалить пустые листы вы можете удалить все пустые листы одним щелчком мыши.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Получите его сейчас.
После установки Kutools для Excel выполните следующие действия:
1. Нажмите Kutools Plus > Лист > Удалить пустые листы, см. скриншот:
2. Появится диалоговое окно с запросом, хотите ли вы удалить все пустые листы, см. скриншот:
3. Затем нажмите Да, и пустые листы будут успешно удалены. Смотрите скриншоты:
 |
 |
 |
Если вы хотите узнать больше об этой функции, пожалуйста, нажмите Удалить пустые листы.
Связанная статья:
Как удалить скрытые листы в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек