Як видалити всі аркуші, крім зазначеного / поточного в 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.

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

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

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

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