Как удалить несколько пустых объектов Microsoft Excel

Я думаю, что нашел решение, по крайней мере, оно работает для меня, а я не очень хорошо разбираюсь в VBA. Добавьте окно свойств (в представлении), выберите каждый лист и измените параметр «Видимый» на -1 — xlsheetvisible, он появится в Excel, а затем вы сможете удалить вкладку.

Есть много способов добиться желаемого. Самый быстрый способ - щелкнуть правой кнопкой мыши на Листе 1 и выбрать «Переместить или скопировать» ~~> «Новая книга» ~~> «ОК».

Теперь вы можете сохранить новую книгу и удалить старую :)

ПОСЛЕДУЮЩИЕ

К сожалению, это не сработает — у нас есть несколько довольно длинных формул на других листах с точно такой же проблемой, и Excel скопирует из них только первые 255 символов. Кроме того, код VBA в исходном листе не копируется, что требует дополнительных шагов для восстановления каждой электронной таблицы, затронутой этой проблемой.

В таком случае попробуйте этот код

Option Explicit

Sub Sample()
    Dim ws As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "Sheet1" Then ws.Delete
    Next

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub