Как удалить все пустые листы в 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% и сократите сотни кликов мышью ежедневно!