Как удалить все листы, кроме указанного/текущего, в Excel?
Чтобы удалить все листы в книге Excel, кроме указанного или активного в данный момент листа, вы можете воспользоваться следующими методами.
Удаление всех листов, кроме указанного, с помощью кода VBA
Одним щелчком мыши удалите все листы, кроме текущего активного, с помощью Kutools для Excel
Удаление всех листов, кроме указанного, с помощью кода VBA
С помощью приведенного ниже кода VBA вы можете удалить все листы в книге, кроме указанного одного в Excel.
1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic Application.
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. «Лист1» и «Лист2» — это листы, которые вы хотите сохранить в текущей книге. Вы можете изменить их по своему усмотрению.
2. Если вы хотите удалить все листы, но оставить несколько указанных листов, добавьте And xWs.Name <> "ваше имя листа" перед ключевым словом Then в 6-й строке кода. Например: If xWs.Name <> "Лист1" And xWs.Name <> "Лист2" And xWs.Name <> "ваше имя листа" Then
3. Если вы хотите оставить только один лист и удалить все остальные из книги, пожалуйста, удалите все условия And в коде. Например, чтобы оставить Лист1 в текущей книге, вам нужно изменить шестую строку кода на: If xWs.Name <> "Лист1" Then
Удаление всех листов, кроме текущего активного, с помощью Kutools для Excel (один щелчок)
Вы можете легко удалить все листы, кроме текущего активного, всего одним щелчком мыши с помощью функции Delete All Inactive Sheets из Kutools для Excel.
1. Щелкните Kutools Plus > Лист > Delete All Inactive Sheets.
3. Затем появится диалоговое окно, если вы уверены, что хотите удалить все листы, кроме активного, нажмите кнопку OK, в противном случае нажмите кнопку Отмена.
Затем все листы будут удалены, кроме текущего активного в вашей книге.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Демонстрация: Удаление всех листов, кроме текущего активного, с помощью Kutools для Excel
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек