Как удалить скрытые листы в Excel?
Возможно, у вас есть рабочая книга, содержащая много скрытых рабочих листов, которые бесполезны и занимают так много бит, что теперь вы хотите удалить все ненужные скрытые рабочие листы. Как можно было их быстро удалить?
Удалить скрытые листы с кодом VBA
Удалите скрытые листы с помощью функции проверки документа
Удалить скрытые листы с помощью Kutools for Excel
Удалить скрытые листы с кодом VBA
Следующий код VBA удалит все скрытые листы в книге.
1. Откройте книгу, из которой вы хотите удалить скрытый рабочий лист.
2. Нажмите Застройщик > Визуальный Бейсик, Новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить > Модули, затем скопируйте и вставьте в модуль следующий код:
Sub deletehidden ()
Dim a As Integer
a = 1
Хотя <= worksheets = "" count = "" span = "">
Если не рабочие листы (а). Видно, то
Рабочие листы (а) .Удалить
Еще
а = а + 1
End If
венед
End Sub
3. Нажмите кнопку для выполнения кода, и для каждого скрытого рабочего листа появится окно с предупреждением, чтобы убедиться, что вы действительно хотите его удалить. Смотрите скриншот:
4. Затем нажмите Удалить. И все скрытые листы были удалены.
Удалите скрытые листы с помощью функции проверки документа
С помощью функции Excel «Проверить документ» вы можете быстро и легко удалить скрытые рабочие листы.
1. Если вы используете Excel 2010/2013, вы можете нажать Файл > Инфо > Проверить наличие проблем > Осмотреть документ, см. снимок экрана:
Если у вас есть Excel 2007, вы можете нажать Офис Кнопку в верхнем левом углу, а затем щелкните Подготовить > Осмотреть документ. Смотрите скриншот:
2. в Инспектор документов диалоговое окно, нажмите Диагностика .
3. И скрытые листы будут проверены, затем нажмите Удалить все кнопку, чтобы удалить скрытые листы активной книги.
Удалить скрытые листы с помощью Kutools for Excel
Если вы хотите быстро удалить скрытые листы, вы можете использовать Kutools for Excel.
Kutools для Excel: с более чем 300 удобными надстройками Excel, которые можно бесплатно попробовать без ограничений в течение 30 дней. Получить сейчас
После установки Kutools for Excel вы можете сделать следующее:
1. Перейдите на ленту и щелкните Предприятие > Инструменты рабочего листа > Удалить все скрытые листы, см. снимок экрана:
2. Затем появится окно с подсказкой, чтобы напомнить вам, действительно ли вы хотите удалить все скрытые листы. Смотрите скриншот:
3. Нажмите Да, и появится другое окно подсказки, чтобы напомнить вам, сколько скрытых листов было удалено. Смотрите скриншот:
4. Нажмите OK чтобы закончить эту задачу.
Щелкните Удалить все скрытые листы, чтобы узнать больше об этой функции.
Связанная статья:
Удалить все скрытые строки или столбцы
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!