Как очистить область печати на нескольких листах одновременно в Excel?

В некоторых случаях мы можем установить область печати на одном листе для печати, но если в книге несколько листов с разными областями печати, как быстро очистить все области печати сразу на нескольких листах в Excel? Удалять их вручную по одному — это долго. Есть ли более быстрый способ?

Очистка области печати во всей книге с помощью VBA

Очистка области печати на нескольких листах с помощью Копировать настройки страницы

Очистка области печати во всей книге с помощью VBA

Вот макрос, который позволяет очистить все области печати во всей книге.

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В панели Project – VBAProject дважды щёлкните ThisWorkbook, затем скопируйте и вставьте приведённый ниже код VBA в правое пустое окно скрипта. Смотрите скриншот:

VBA: Очистить область печати во всей книге

Sub ClearPrintArea()
'UpdatebyExtendoffice20171229
    Dim xSheet As Worksheet
    For Each xSheet In Worksheets
        xSheet.PageSetup.PrintArea = ""
    Next
End Sub

3. Нажмите клавишу F5 для запуска кода — все области печати в книге будут удалены.

Очистка области печати на нескольких листах с помощью Копировать настройки страницы

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

1. Выберите один лист, например, лист random password, затем нажмите Разметка страницы > Область печати > Очистить область печати. Смотрите скриншот:

2. Затем нажмите Kutools Plus > Печать > Копировать настройки страницы.

3. Затем в Копировать настройки страницы диалоговом окне,
в разделе Копировать в отображаются все листы, кроме текущего; отметьте те, с которых нужно удалить область печати;
далее перейдите в раздел Опции в разделе Лист списка отметьте только Область печати конвертировать. Смотрите скриншот:

4. Нажмите Ok. Теперь области печати удалены с выбранных листов.

  Демонстрация