Как удалить пустые листы из книг
Предположим, у вас есть большая книга с несколькими листами, но в этой книге есть несколько пустых листов без какого-либо содержимого. Чтобы сделать книгу более профессиональной и формальной, вы хотите удалить эти пустые листы из книги. Вместо того, чтобы удалять пустые листы один за другим, я представляю методы быстрого удаления всех пустых листов.
Удалить пустые листы с помощью VBA
Удалить пустые листы с помощью Kutools for Excel
Удалить пустые листы с помощью VBA
Здесь я представляю VBA, который поможет вам быстро удалить все пустые листы из открытой книги.
1. Нажмите Alt + F11 ключи для включения Microsoft Visual для базовых приложений окно.
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, и появится диалоговое окно с напоминанием о необходимости удаления пустых листов, нажмите Да продолжать снимать, Нет чтобы отменить этот VBA.
4. После нажатия Да, появится диалоговое окно с информацией о количестве удаленных листов, нажмите OK чтобы закрыть его, и все пустые листы в этот момент удалены.
Удалить пустые листы с помощью Kutools for Excel
Для некоторых зеленых рук Excel VBA - довольно сложный метод для выполнения, но с Kutools for ExcelАвтора Удалить пустые листы функция, вы можете быстро удалить все пустые листы из книги с помощью трех щелчков мыши!
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Включите книгу, из которой вы хотите удалить пустые листы, и нажмите Кутулс Плюс > Рабочий лист > Удалить пустые листы. Смотрите скриншот:
Относительные статьи:
- Как подсчитать и удалить дубликаты из списка в Excel?
- Как удалить строку после n-го символа в Excel?
- Как удалить текст в скобках / скобках в Excel?
- Как удалить формы линий в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!