Перейти до основного матеріалу

Як видалити всі порожні аркуші в Excel?

Якщо у вас є книга, у якій багато робочих аркушів, тим часом у ній є кілька порожніх аркушів. А тепер ви хочете видалити порожні аркуші, щоб зберегти або заархівувати файл. Як ви могли шукати чисті аркуші з кількох аркушів і автоматично їх видаляти?

Видаліть усі порожні аркуші з кодом VBA

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

стрілка синя права міхур Видаліть усі порожні аркуші з кодом VBA

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

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно Модуль.

VBA: видалити всі порожні аркуші

Sub DeleteBlankWorksheets () 'Оновлення 20130830 Dim Ws As Worksheet Про помилку Відновити наступний Application.ScreenUpdating = False Application.DisplayAlerts = False для кожного Ws в застосунку. Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Потім 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. Клацання підприємство > Інструменти робочого аркуша > Видалити пусті робочі аркуші, див. скріншот:

doc-delete-blank-sheets1

2. І з’явиться підказка, щоб нагадати вам, чи хочете ви видалити всі порожні аркуші чи ні, див. Знімок екрана:

doc-delete-blank-sheets2

3. Потім натисніть Так, а порожні аркуші успішно видалено. Дивіться скріншоти:

doc-delete-blank-sheets3
-1
doc-delete-blank-sheets4

Якщо ви хочете дізнатись більше про цю функцію, натисніть Видалити пусті робочі аркуші.

Пов'язана стаття:

Як видалити приховані аркуші в 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% та зменшує сотні клацань миші для вас щодня!
Comments (3)
No ratings yet. Be the first to rate!
Salvador Sánchez
Salvador Sánchez
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Reply
0
0
SD
SD     Salvador Sánchez
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
Reply
0
0
Ems
Ems
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations