Як видалити порожні аркуші з робочих книжок

Припустимо, у вас є велика книга з декількома аркушами, але в цій книзі є кілька порожніх аркушів без вмісту. Щоб зробити книгу більш професійною та офіційною, ви хочете видалити ці порожні аркуші із книги. Замість того, щоб видаляти порожні аркуші по одному, я представляю методи швидкого видалення всіх порожніх аркушів.

Видаліть чисті аркуші за допомогою VBA

Видаліть порожні аркуші за допомогою Kutools для Excel

Видаліть чисті аркуші за допомогою VBA

Дивовижний! Використання ефективних вкладок у Excel, таких як Chrome, Edge, Firefox і Safari!
Заощаджуйте 50% свого часу та зменшуйте тисячі клацань миші щодня!

Тут я представляю VBA, який допоможе вам швидко видалити всі порожні аркуші з відкритої книги.

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual для основних програм вікна.

2. І клацніть Insert > Модулі, вставте нижче коду 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 для Excel

Для деяких зелених рук Excel VBA є дещо складним методом для виконання, але з Kutools для ExcelАвтора Видалити пусті робочі аркуші функція, ви можете швидко видалити всі порожні аркуші з книги трьома клацаннями миші!

після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.

1. Увімкніть книгу, для якої потрібно видалити порожні аркуші, і натисніть Kutools Plus > Робочий аркуш > Видалити пусті робочі аркуші. Дивіться знімок екрана:

Відносні статті:

• Як підрахувати та видалити дублікати зі списку в Excel?
• Як видалити рядок після n-го символу в Excel?
• Як видалити текст у дужках / дужках у Excel?
• Як видалити фігури лінії в Excel?

Найкращі інструменти продуктивності офісу

🤖	Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
	Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
	Супер пошук: VLookup за кількома критеріями  |   Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
	Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
	Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
	Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул   |  Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок   |  Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
	Топ-15 наборів інструментів:  12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Детальніше ... Завантажити безкоштовно...

---

Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно...