Как удалить все пустые листы в Excel?
Если у вас есть рабочая тетрадь, в которой много листов, тем временем в ней есть несколько пустых листов. А теперь вы хотите удалить пустые листы, чтобы сохранить или заархивировать файл. Как вы могли искать пустые листы на нескольких листах и автоматически удалять их?
Удалите все пустые листы с кодом VBA
Удалите все пустые листы с помощью Kutools for Excel
Удалите все пустые листы с кодом VBA
Вам сложно проверять наличие пустых листов и удалять их один за другим, но с помощью следующего кода VBA вы можете легко удалить все пустые листы сразу.
1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.
VBA: удалить все пустые листы
Sub DeleteBlankWorksheets () 'Обновление 20130830 Dim Ws As Worksheet при ошибке Возобновить следующее приложение.ScreenUpdating = False Application.DisplayAlerts = False для каждой Ws в Application.Worksheets Если Application.WorksheetFunction.CountA (Ws.UsedRange) = 0, то Ws.Delete End Если Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
3, Затем нажмите F5 key, и все пустые листы удаляются сразу.
Удалите все пустые листы с помощью Kutools for Excel
Если вы не знакомы с кодом VBA, я могу представить вам простой инструмент - Kutools for Excel, С его Удалить пустые листы функция, вы можете удалить все пустые листы одним щелчком мыши.
Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.
Когда вы установили Kutools for Excel, выполните следующие действия:
1. Нажмите Предприятие > Инструменты рабочего листа > Удалить пустые листы, см. снимок экрана:
2. И появится окно с подсказкой, чтобы напомнить вам, хотите ли вы удалить все пустые листы или нет, см. Снимок экрана:
3. Затем нажмите Да, и пустые листы были успешно удалены. Смотрите скриншоты:
Если вы хотите узнать больше об этой функции, нажмите Удалить пустые листы.
Связанная статья:
Как удалить скрытые листы в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!