Как удалить все листы в Excel, кроме указанного или текущего?
Чтобы удалить все листы в книге Excel, кроме указанных или текущего листа, воспользуйтесь следующими методами.
Удаление всех листов, кроме указанного, с помощью кода VBA
Один клик для удаления всех листов, кроме текущего активного, с помощью Kutools для Excel
Удаление всех листов, кроме указанного, с помощью кода VBA
С помощью приведённого ниже кода VBA вы можете удалить все листы в книге Excel, кроме указанного.
1. Нажмите одновременно клавиши Alt+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. «Лист1» и «Лист2» — это листы, которые вы хотите оставить в текущей книге. При необходимости вы можете изменить их на нужные вам.
2. Если вы хотите удалить все листы, кроме нескольких указанных, добавьте перед ключевым словом Then в шестой строке кода конструкциюAnd xWs.Name "имя вашего листа ". Например:If xWs.Name «Лист1» And xWs.Name «Лист2»And xWs.Name «имя вашего листа»Then
3. Если вы хотите оставить только один лист и удалить все остальные из книги, удалите из кода все условия с оператором And. Например, чтобы оставить Лист1 в текущей книге, измените шестую строку кода следующим образом: If xWs.Name «Лист1» Then
Удаление всех листов, кроме текущего активного, с помощью Kutools для Excel (всего один клик)
В ы можете легко удалить все листы, кроме текущего Текущий лист, одним кликом с помощью функции Удалить все неактивные листыиз Kutools для Excel.
1. Щёлкните KUTOOLS PLUS > Лист > Удалить все неактивные листы.
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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек