Note: The other languages of the website are Google-translated. Back to English

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

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

Удалите все пустые листы с кодом VBA

Удалите все пустые листы с помощью Kutools for Excel

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
  • Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
  • Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
  • Более 300 мощных функций; Работает с Office 2007-2021 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

стрелка синий правый пузырь Удалите все пустые листы с кодом 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (3)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Открытый член «WorksheetFunction» для типа «WorkbookClass» не найден.
я использую Interop.Excel
Этот комментарий был сведен к минимуму модератором на сайте
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.

Макрос:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Дим Нходжас как целое число
Dim i As Integer

On Error Resume Next
Приложение.ScreenUpdating = False
Приложение.DisplayAlerts = False

Nhojas = Листы.Количество

Для i = 1 То Нходжас

Если WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 И Sheets(i).Shapes.Count = 0 Тогда

Листы(i).Удалить

Еще
' Нада
End If
Затем я

По ошибке GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Этот комментарий был сведен к минимуму модератором на сайте
Я не могу говорить на вашем языке, но я вижу недостаток в вашем коде.
Проблема в том, что >> Nhojas = Sheets.Count
И тогда вы зависите от Nhojas, но когда вы удаляете лист, вы не уменьшаете Nhojas на 1.

Поэтому просто добавьте эту строку в свой код после «Sheets(i).Delete» и перед «Else»:
Нходжас = Нходжас - 1

Пожертвовать :)

Тем не менее, вы проделали хорошую работу, но вам нужно выполнить пробный запуск кода, когда вы пытаетесь отладить код.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL