Перейти до основного матеріалу

Як видалити всі аркуші, крім зазначеного / поточного в Excel?

Для видалення всіх аркушів книги Excel, крім зазначеного одного або поточного активного аркуша, ви можете вирішити це, як показано нижче.

Видаліть усі аркуші, крім зазначеного, із кодом VBA
Один клік, щоб видалити всі аркуші, крім поточного активного, за допомогою Kutools для Excel


Видаліть усі аркуші, крім зазначеного, із кодом VBA

З наведеним нижче кодом VBA ви можете видалити весь аркуш книги, крім певного в Excel.

1. прес інший + F11 клавіші одночасно, щоб відкрити Додаток Microsoft Visual Basic вікна.

2. клацання Insert > Модулі, а потім скопіюйте та вставте нижче код 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. Якщо ви просто хочете зберегти один аркуш і видалити всі з книги, видаліть усі і умови в коді. Наприклад, для ведення аркуша1 у поточній книзі потрібно змінити код шостого рядка на: Якщо xWs.Name <> "Аркуш1" Тоді


Видалити всі аркуші, крім поточного активного, за допомогою Kutools для Excel (тільки одним клацанням миші)

YВи можете легко видалити всі аркуші, крім поточного активного аркуша, лише одним клацанням миші Видалити всі неактивні аркуші корисність Kutools для Excel.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. клацання Kutools Plus > Робочий аркуш > Видалити всі неактивні аркуші

3. Потім з’явиться діалогове вікно, якщо ви вирішите видалити всі аркуші, крім активного, клацніть на OK , інакше натисніть кнопку Скасувати кнопки.

Потім усі аркуші видаляються, крім поточного активного у вашій книзі.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Додайте текст у середині виділених комірок за допомогою Kutools для Excel

Найкращі інструменти продуктивності офісу

Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

вкладка kte 201905


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Loved the code, awesome. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations