如何在Excel中一次性清除多个工作表的打印区域？

在某些情况下，我们可能会在工作表中设置一个打印区域用于打印，但如果存在具有不同打印区域的多个工作表，如何在Excel中一次性清除所有工作表的打印区域呢？逐一手动删除非常耗时，有没有更快的方法？

使用VBA清除整个工作簿的打印区域

通过“复制页面设置”清除多个工作表的打印区域

使用VBA清除整个工作簿的打印区域

以下是一个可以清除整个工作簿中所有打印区域的宏代码。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在“项目 - 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 for Excel，其“复制页面设置”功能也可以帮助您清除多个工作表中的打印区域。

1. 选择一个工作表，例如随机密码表，然后点击 页面布局 > 打印区域 > 清除打印区域。参见截图：

2. 然后点击 Kutools Plus > 打印 > 复制页面设置.

3. 接下来，在 复制页面设置 对话框中，
在 复制至 部分，当前工作表以外的所有工作表都已列出，请勾选您要清除打印区域的工作表；
然后转到 选项 部分，在 工作表 列表下，仅勾选 打印区域 选项。参见截图：

4. 点击 确定。现在所选工作表的打印区域已被移除。

  演示