Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как удалить пустые листы из книг

Предположим, что у вас большая книга с несколькими листами, но в этой книге есть несколько пустых листов без содержания. Чтобы сделать книгу более профессиональной и официальной, вы хотите удалить эти пустые листы из книги. Вместо того, чтобы удалять пустые листы один за другим, я вводил методы для быстрого удаления всех незаполненных листов.

Удалите пустые листы с помощью VBA

Удалите пустые листы Kutools для Excel хорошая идея3

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.

arrow синий правый пузырь Удалите пустые листы с помощью VBA


Здесь я представляю VBA, чтобы помочь вам быстро удалить все пустые листы из открытой книги.

1. Нажмите Alt + F11 для включения Microsoft Visual для основных приложений окна.

2. И нажмите Вставить > модуль, вставьте под кодом VBA новый всплывающий модуль окна.

VBA: Удалите пустые листы.

Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
    Dim xWs As Worksheet
    Dim xAlert As Boolean
    Dim xCount As Long
    xAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
    For Each xWs In ActiveWorkbook.Worksheets
        If (Application.CountA(xWs.Cells) = 0) And _
           (xWs.Shapes.Count = 0) Then
            xWs.Delete
            xCount = xCount + 1
        End If
    Next
    MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
    Application.DisplayAlerts = xAlert
End Sub

3. И нажмите F5 или кнопку «Запустить», чтобы выполнить VBA, и появится диалоговое окно, напоминающее вам, нужно ли удалять пустые листы, нажмите Да чтобы продолжить, Нет для отмены этого VBA.

doc удалить пустые листы 1

4. После нажатия Да, появится диалоговое окно с сообщением о количестве удаленных листов, нажмите OK закрыть его, и все пустые листы были удалены в этот момент.

doc удалить пустые листы 2

формула Никогда не нужно беспокоиться о длинных формулах в Excel больше! Kutools for Excel's Авто текст может добавлять все формулы в группу
как автоматический текст, и освободите свой мозг! Знать об автоматическом тексте Получить бесплатную пробную версию

arrow синий правый пузырь Удалите пустые листы Kutools для Excel

Для некоторых зеленых рук Excel VBA является несколько сложным способом выполнения, но с Kutools for ExcelАвтора Удалить пустые рабочие листы функцию, вы можете быстро удалить все пустые листы из книги с помощью трех щелчков мыши!

Kutools for Excel, с более чем 120 удобные функции Excel, повысить эффективность работы и сэкономить рабочее время.

После бесплатная установка Kutools для Excel, пожалуйста, сделайте следующее:

1. Включите книгу, в которой вы хотите удалить свои пустые листы, и нажмите Предприятие > Рабочий лист > Удалить пустые рабочие листы, Смотрите скриншот:

doc удалить пустые листы 3

2. И Kutools for Excel появится диалоговое окно, чтобы подтвердить, что если вы хотите удалить все пустые листы и нажмите Да продолжить удаление, и Нет отменить. Смотрите скриншот:

doc удалить пустые листы 4

3. И после нажатия Да, появляется диалоговое окно, напоминающее вам количество успешно удаленных листов. Нажмите OK закрыть его.

doc удалить пустые листы 5

обратите внимание1Если вы заинтересованы в этом дополнении, нажмите здесь, чтобы загрузить бесплатную пробную версию 60-days.


Относительные статьи:


doc KTE


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.