1,0×
655 просмотров · 10 месяцев назад
00:00/06:55
Описание
Макрос - удаление пустых листов в Excel
10 месяцев назад • 655 просмотров17 поставили "Нравится"
Макрос: удаляем пустые листыНа примере простой задачки (удалить все листы в текущей книге, на которых нет ни одного значения в ячейках) рассматриваем, как создать макрос в личной книге макросов и затем добавить на панель быстрого доступа, чтобы он всегда был под рукой.
Код макроса — ниже — для импорта зайдите в редактор VBA (Alt + F11) и вставьте в модуль в личной книге макросов.
Если личной книги макросов еще нет, включите запись макроса, выберите сохранение в личную книгу макросов (в видео это есть) и сразу остановите запись. Тогда будет создана личная книга макросов PERSONAL.XLSB. Макросы, которые лежат в ней, доступны вам в любых книгах Excel.
Sub DeleteBlankWorksheets()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If Application.WorksheetFunction.CountA(ws.UsedRange) = 0 Then ws.Delete
Next ws
End Sub