Для удаления всех листов в книге Excel, кроме указанного одного или текущего активного листа, вы можете справиться с этим, как показано ниже.
Удалить все листы, кроме указанного с кодом VBA
Один щелчок, чтобы удалить все листы, кроме текущего активного, с помощью Kutools for Excel
Утилита Удалить все неактивные листы из Kutools for Excel поможет вам легко удалить все листы в текущей книге, кроме активной. Смотрите снимок экрана:
Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 60 дней. Загрузите бесплатную пробную версию
- Повторное использование чего угодно: добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
- Более 20 текстовых функций: извлечение числа из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
- Инструменты слияния: несколько книг и листов в одну; Объединить несколько ячеек/строк/столбцов без потери данных; Объедините повторяющиеся строки и суммируйте.
- Инструменты разделения: разделение данных на несколько листов в зависимости от значения; Из одной книги в несколько файлов Excel, PDF или CSV; Один столбец в несколько столбцов.
- Вставить пропуск скрытых/отфильтрованных строк; Подсчет и сумма по цвету фона; Массовая отправка персонализированных писем нескольким получателям.
- Суперфильтр: создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделе, дню, частоте и т. Д. Фильтр жирным шрифтом, формулами, комментарием …
- Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.
->
Удалить все листы, кроме указанного с кодом VBA
С помощью приведенного ниже кода VBA вы можете удалить весь лист в книге, кроме определенного в Excel.
1. Одновременно нажмите клавиши Alt + F11 , чтобы открыть окно приложения Microsoft Visual Basic .
2. Нажмите Вставить > Module , затем скопируйте и вставьте ниже код VBA в окно модуля.
VBA код: удалить все листы, кроме указанных
Примечания :
1. «Лист1» и «Лист2» - это листы, которые вы хотите сохранить в текущей книге. Вы можете изменить их в зависимости от ваших потребностей.
2. Если вы хотите удалить все листы, но оставить больше, добавьте код And xWs.Name «имя вашего листа» перед словом Then в шестой строке кода. Например:
Если xWs.Name «Sheet1» и xWs.Name «Sheet2» и xWs.Name «имя вашего листа», то
3. Если вы просто хотите сохранить один лист и удалить все из книги, удалите все условия И в коде. Например, чтобы сохранить Sheet1 в текущей книге, вам нужно изменить код шестой строки на: If xWs.Name “Sheet1” Then
Удалить все листы, кроме текущего активного, с помощью Kutools for Excel (Только один щелчок)
Вы можете легко удалить все листы, кроме текущего активный лист одним щелчком с помощью утилиты Удалить все неактивные листы из Kutools for Excel .
Перед применением Kutools for Excel , сначала загрузите и установите его .
1. Нажмите Kutools Plus > Рабочий лист > Удалить все неактивные листы .
3. Затем появится диалоговое окно. Если вы решили удалить все листы, кроме активного, нажмите кнопку OK , в противном случае нажмите кнопку Отмена .
Затем удаляются все листы, кроме текущего активного в вашей книге .
Если вы хотите получить 30-дневную бесплатную пробную версию этой утилиты, нажмите, чтобы загрузить ее , а затем перейдите к применению операции в соответствии с вышеуказанные шаги.