Как удалить все листы, кроме указанного/текущего, в 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