Как да изтрия всички листове с изключение на посочения/текущ в Excel?
За изтриване на всички листове в работна книга на Excel, с изключение на посочения един или текущия активен лист, можете да се справите с това, както е показано по-долу.
Изтрийте всички листове с изключение на посочения с VBA код
Едно щракване, за да изтриете всички листове с изключение на текущия активен с Kutools за 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.Име <> "името на вашия лист" преди След това дума в шестия ред на кода. Като:
Ако xWs.Name <> "Sheet1" И xWs.Name <> "Sheet2" И xWs.Name <> "име на вашия лист" След това
3. Ако искате да запазите само един лист и да изтриете всички от работната книга, моля, премахнете всички И условие в кода. Например, за да запазите sheet1 в текущата работна книга, трябва да промените кода на шестия ред на: Ако xWs.Name <> "Sheet1" Тогава
Изтрийте всички листове с изключение на текущия активен с Kutools за Excel (само с едно щракване)
Yможете лесно да премахнете всички листове с изключение на текущия активен лист само с едно щракване Изтриване на всички неактивни листове полезност на Kutools за Excel.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. кликване Kutools плюс > Работен лист > Изтриване на всички неактивни листове.
3. След това се появява диалогов прозорец, ако решите да изтриете всички листове с изключение на активния, щракнете върху OK в противен случай щракнете върху Отказ бутон.
След това всички листове се изтриват с изключение на текущия активен във вашата работна книга.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Добавете текст в средата на избраните клетки с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!