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

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

Excel. Имеется множество скрытых листов, которые нужно удалить. Как сделать это быстрее, что бы не удалять вручную по 1

1. запускаешь эксель, открываешь книгу, нажимаешь Alt+F11 – откроется редактор VBA.
2. в левой части дважды жмёшь «Эта книга».
3. в правой части вставляешь этот текст:

Sub delhiddensheets()
Application.DisplayAlerts = False
For Each sh In Worksheets
If sh.Visible = False Then sh.Delete
Next sh
Application.DisplayAlerts = True
End Sub

4. жмёшь F5. все скрытые листы будут удалены (ты это сможешь увидеть по пропавшим вкладкам листов в левой части того же VBA).

(excel_2010_VBA) Удалить все листы кроме активного

Удалить все листы кроме первого
Sub Dell_all() Application.DisplayAlerts = 0 Dim i As Integer For i = 2 To Worksheets.Count .

Удалить все листы, кроме заданных
доброго дня всем Есть книга в которую юзеры добавляют Листы какие им вздумается Какой макрос.

Записать значения во все листы , кроме
Всем привет, У меня имеется лист в файле Экселя с названием "Источник" В этот лист будут.

Закрыть все рабочие документы, кроме активного
Кроме того: 1) Выбор (сохранения изменений) осуществляется один раз сразу для всех документов.

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

Возможно, у вас есть рабочая книга, содержащая много скрытых рабочих листов, которые бесполезны, и они занимают так много бит, теперь вы хотите удалить все ненужные скрытые листы. Как вы могли быстро удалить их?

Удалить скрытые рабочие листы с помощью кода VBA

Удалить скрытые рабочие листы с помощью Inspect Функция документа

Удаление скрытых листов с помощью Kutools for Excel

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

Потрясающе! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Сэкономьте 50% своего времени и уменьшите тысячи щелчков мышью каждый день!

Следующий код VBA удалит все скрытые листы в книге.

1. Откройте книгу, из которой вы хотите удалить скрытый лист.

2. Нажмите Разработчик > Visual Basic , откроется новое окно Microsoft Visual Basic для приложений , нажмите Вставьте > Модуль , затем скопируйте и вставьте в модуль следующий код:

Sub deletehidden ()
Уменьшить изображение как целое
a = 1
Пока
Если не рабочие листы (a). Видно, то
Рабочие листы (a). Удалить
Остальное
a = a + 1
End If
Wend
End Sub

3. Нажмите кнопку , чтобы выполнить код, и появится окно с предупреждением для каждого скрытого листа, чтобы убедиться, что вы действительно хотите его удалить. См. Снимок экрана:

4. Затем нажмите Удалить . И все скрытые листы были удалены.

Удалите скрытые листы с помощью функции «Проверить документ».

С помощью функции «Проверить документ» в Excel вы можете быстро и легко удалить скрытые листы.

1. Если вы используете Excel 2010/2013, вы можете нажать Файл > Информация > Проверить наличие проблем > Проверить документ , см. снимок экрана:

Если у вас Excel 2007, вы можете нажать кнопку Office в верхнем левом углу, а затем нажать Подготовить > Проверить документ . См. Снимок экрана:

2. В диалоговом окне Инспектор документов нажмите кнопку Осмотреть .

3. И скрытые рабочие листы будут проверены, затем нажмите кнопку Удалить все , чтобы удалить скрытые рабочие листы активной книги.

Удалите скрытые рабочие листы с помощью Kutools for Excel

Если вы хотите быстро удалить скрытые рабочие листы, вы можете использовать Kutools for Excel.

Kutools for Excel: с более чем 300 удобными надстройками Excel, вы можете попробовать бесплатно без ограничений в течение 30 дней. Получить сейчас

После установки Kutools for Excel вы можете сделать следующее:

1. Перейдите на ленту и нажмите Enterprise > Инструменты рабочего листа > Удалить все скрытые листы , см. Снимок экрана:

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

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

4. Нажмите OK , чтобы завершить эту задачу.

Нажмите «Удалить все скрытые листы», чтобы узнать больше об этой функции.

Статья по теме:

Удалить все скрытые строки или столбцы

Лучшие инструменты для повышения производительности офиса

Kutools for Excel решает большинство ваших проблем и повышает производительность на 80%
  • Повторное использование : быстро вставляйте сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки паролем; Создавайте список рассылки и отправляйте электронные письма …
  • Панель супер формул (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон …
  • Объединить ячейки/строки/столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки/столбцы … Предотвратить дублирование ячеек; Сравнить диапазоны …
  • Выбрать повторяющиеся или уникальные строки; Выберите пустые строки (все ячейки пусты); Супер поиск и нечеткий поиск во многих книгах; Случайный выбор …
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставка маркеров, флажков и прочего …
  • Извлечь текст, добавить текст, удалить по положению, удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии …
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенная сортировка по месяцам/неделям/дням, частоте и другим параметрам; Специальный фильтр жирным шрифтом, курсивом …
  • Объединить рабочие книги и рабочие таблицы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF …

Группировка сводной таблицы по номеру недели, дню недели и другим параметрам … Показывать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки с формулой/именем … ->

Ссылка на основную публикацию