Перейти к основному содержанию

Как удалить все пустые листы в Excel?

Автор: Сяоян Последнее изменение: 2013 июля 10 г.

Если у вас есть рабочая тетрадь, в которой много листов, тем временем в ней есть несколько пустых листов. А теперь вы хотите удалить пустые листы, чтобы сохранить или заархивировать файл. Как вы могли искать пустые листы на нескольких листах и ​​автоматически удалять их?

Удалите все пустые листы с кодом 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. Нажмите Предприятие > Инструменты рабочего листа > Удалить пустые листы, см. снимок экрана:

документ-удалить-пустые-листы1

2. И появится окно с подсказкой, чтобы напомнить вам, хотите ли вы удалить все пустые листы или нет, см. Снимок экрана:

документ-удалить-пустые-листы2

3. Затем нажмите Да, и пустые листы были успешно удалены. Смотрите скриншоты:

документ-удалить-пустые-листы3
-1
документ-удалить-пустые-листы4

Если вы хотите узнать больше об этой функции, нажмите Удалить пустые листы.

Связанная статья:

Как удалить скрытые листы в Excel?

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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