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