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

Как в Excel удалить все листы кроме указанного / текущего?

Для удаления всех листов в книге Excel, кроме указанного одного или текущего активного листа, вы можете справиться с этим, как показано ниже.

Удалить все листы, кроме указанного с кодом VBA
Один щелчок, чтобы удалить все листы, кроме текущего активного, с помощью Kutools for Excel


Удалить все листы, кроме указанного с кодом VBA

С помощью приведенного ниже кода VBA вы можете удалить весь лист в книге, кроме определенного в Excel.

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Приложение Microsoft Visual Basic окно.

2. Нажмите Вставить > Модули, затем скопируйте и вставьте ниже код VBA в окно модуля.

Код VBA: удалить все листы, кроме указанных

Sub DeleteSheets1()
	Dim xWs As Worksheet
	Application.ScreenUpdating = False
	Application.DisplayAlerts  = False
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
			xWs.Delete
		End If
	Next
	Application.DisplayAlerts = True
	Application.ScreenUpdating = True
End Sub

Заметки:

1. "Sheet1(Основной ключ) и Sheet2»- это листы, которые вы хотите сохранить в текущей книге. Вы можете изменить их в зависимости от ваших потребностей.

2. Если вы хотите удалить все, но оставить больше листов, добавьте код И xWs.Name <> "имя вашего листа" до Затем слово в шестой строке кода. Такие как:

Если xWs.Name <> "Sheet1" и xWs.Name <> "Sheet2" И xWs.Name <> "имя вашего листа" Затем

3. Если вы хотите оставить только один лист и удалить все из книги, удалите все И, условие в коде. Например, чтобы сохранить Sheet1 в текущей книге, вам нужно изменить код шестой строки на: Если xWs.Name <> "Sheet1" Тогда


Удалите все листы, кроме текущего активного, с помощью Kutools for Excel (только один щелчок)

YВы можете легко удалить все листы, кроме текущего активного листа, одним щелчком мыши. Удалить все неактивные листы полезности Kutools for Excel.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Нажмите Кутулс Плюс > Рабочий лист > Удалить все неактивные листы

3. Затем появится диалоговое окно. Если вы решили удалить все листы, кроме активного, нажмите кнопку OK кнопку, в противном случае нажмите кнопку Отмена кнопку.

Затем удаляются все листы, кроме текущего активного в вашей книге.

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Добавить текст в середине выбранных ячеек с помощью Kutools for 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% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (1)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Код понравился, круто. Спасибо.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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