Макрос удалил все листы в excel

Skip to content

Sub UdalitVseListiKromeAktivnogo()
'Шаг 1: Объявляем переменные
Dim ws As Worksheet
'Шаг 2: Запускаем цикл по всем рабочим листам
For Each ws In ThisWorkbook.Worksheets
'Шаг 3: Проверяем имя каждого рабочего листа
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
'Шаг 4: Выключаем предупреждения
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
'Шаг 5: Переходим на следующий рабочий лист
Next ws
End Sub

Приходилось ли Вам когда-нибудь удалять листы в рабочей книге приложения Excel? Скорее всего, что да! Согласитесь, незамысловатая операция, если необходимо выборочно удалить несколько листов. Независимо от версии Excel щелкнул правой кнопкой мыши по нужному (а точнее говоря ненужному) листу, нажал «Удалить» в контекстном меню, подтвердил удаление — и всего делов то, три нажатия кнопки мыши! Задача усложняется, когда нужно выборочно удалить от десяти листов и более. Удаление листов становится длительным и утомительным занятием. 

Как вручную удалить лист/листы в книге Excel 2003/2007/2010/2013/2016?

Для удаления одного или нескольких листов из рабочей книги проще всего использовать команду «Удалить» из контекстного меню. Кстати говоря, не все знают, что удалять листы можно используя клавиши Ctrl и Shift. Удерживая клавишу Shift, можно выделить диапазон листов, подлежащих удалению и удалить их разом. Аналогично можно использовать клавишу Ctrl, удерживать ее, выбирая листы для удаления, после чего удалить все выделенные листы разом.

Как выборочно удалять листы при помощи надстройки?

Для тех случаев, когда удаляемые листы должны удовлетворять каким-либо условиям, помогает макрос (надстройка) позволяющая выборочно удалять листы. Надстройка позволяет на выбор пользователя:

1) Мгновенно удалить все листы за исключением активного;

2) Удалить листы с заданным шагом, например, каждый второй, третий, четвертый, пятый… n-ый лист рабочей книги.

3) Удалить листы по маске (по шаблону), используя специальные символы совпадения.

Видео по работе с надстройкой

надстройка (макрос) для выборочного удаления листов

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

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

Большинство команд Excel доступны для использования в ваших макросах при условии, что вы знаете правильные команды VBA для выполнения поставленной задачи. Вы можете использовать следующую макрос-команду для удаления активного листа:

 ActiveSheet.Delete 

Если вы введете команду в своем макросе, вы обнаружите, что Excel приостанавливает макрос и спросит вас, уверены ли вы, что хотите удалить рабочий лист. Когда вы нажимаете «Да», рабочий лист удаляется и макрос возобновляется.

Вся идея макросов, конечно же, состоит в том, чтобы автоматизировать многие задачи, которые вы выполняете на регулярной основе. Остановка и запрос подтверждения могут быть безопасным способом, но это мало помогает делу автоматизации. Если вы хотите, чтобы рабочий лист удалялся без пауз, вы можете сделать несколько вещей. Во-первых, вы можете использовать метод SendKeys для имитации нажатия клавиши Enter , что аналогично нажатию Да в диалоговом окне подтверждения. Все, что вам нужно сделать, это добавить одну строку перед строкой, удаляющей рабочий лист:

 Application.SendKeys ("{ENTER}") ActiveSheet.Delete 

SendKeys ничего не делает, кроме как записывает нажатия клавиш в буфер клавиатуры, как если бы вы набирали их с клавиатуры. Таким образом, строка SendKeys должна предшествовать строке Delete, чтобы нажатие клавиши Enter находилось в буфере до того, как оно понадобится.

Любой давний разработчик макросов может указать несколько потенциальные проблемы с использованием SendKeys, основная проблема заключается в том, что вы не можете использовать его, чтобы указать, что вы принимаете опцию Да в диалоговом окне подтверждения, и только в этом диалоговом окне. Однако маловероятно, что если в нужный момент появится другое диалоговое окно (возможно, созданное другой программой), нажатие клавиши Enter будет применено к этому диалоговому окну, а не к тому, которое вы ожидается.

Лучшее решение – отключить на короткое время функции предупреждений в Excel. Рассмотрим следующий код макроса:

 Application.DisplayAlerts = FalseActiveSheet.DeleteApplication.DisplayAlerts = True 

Этот код отключает предупреждения, удаляет рабочий лист, а затем включает оповещения снова включены. Пока они выключены, Excel не будет отображать диалоговое окно подтверждения, а будет действовать так, как если бы оно было отображено и был выбран вариант по умолчанию (Да).

Важно запомнить последнюю строку кода, показанного здесь. Если вы не установите для свойства DisplayAlerts значение True, Excel больше не будет показывать предупреждающие сообщения даже после завершения макроса. Как вы понимаете, это может вызвать проблемы. Лучше всего установить для него значение False только на короткое время, когда вам нужно отключить предупреждения.

Даже если для DisplayAlerts установлено значение False, вы все равно будете видеть сообщения об ошибках, если они сгенерированы. Например, если вы выполните приведенный выше код и в книге есть только один лист, вы все равно увидите сообщение об ошибке. (Это происходит потому, что вы не можете удалить последний лист в книге.)