Удалить пустые листы в Excel макросом: инструкция

Шаг 1. Откройте редактор VBA

Откройте вашу книгу Excel и нажмите комбинацию клавиш Alt + F11, чтобы запустить встроенный редактор Visual Basic for Applications.

Шаг 2. Создайте новый модуль

В верхнем меню редактора выберите Insert > Module. Перед вами откроется пустое окно для ввода кода.

Шаг 3. Вставьте VBA-код

Скопируйте и вставьте следующий код макроса в открывшееся окно:

Sub DeleteEmptySheets()
    Dim ws As Worksheet
    Dim count As Integer
    count = 0
    Application.DisplayAlerts = False
    For Each ws In ActiveWorkbook.Worksheets
        If Application.WorksheetFunction.CountA(ws.UsedRange) = 0 And ActiveWorkbook.Worksheets.Count > 1 Then
            ws.Delete
            count = count + 1
        End If
    Next ws
    Application.DisplayAlerts = True
    MsgBox "Удалено пустых листов: " & count, vbInformation, "Результат"
End Sub

Примечание: Отключение предупреждений через Application.DisplayAlerts = False позволяет избежать назойливых всплывающих окон. Похожий принцип используется, когда нужно настроить закрытие Excel без запроса на сохранение.

Шаг 4. Запустите макрос

Поместите курсор внутрь кода макроса и нажмите клавишу F5 (или зеленую кнопку Run на панели инструментов). Программа мгновенно удалит все абсолютно пустые вкладки и покажет отчет.