Excel实战技巧47： 移除工作表分页线

学习Excel技术，关注微信公众号：

excelperfect

当我们对工作表进行打印预览或者打印操作后，工作表中会留下页面分界线，以指示工作表的分页情况，如下图1所示。

图1

有时，我不想看到这种点划线。此时，有3种方式来关闭它。

第1种：关闭工作簿后重新打开，分页线将自行关闭。

第2种：打开“Excel选项”对话框，在“高级”选项卡中找到“显示分页符”复选项，取消其前面的选择，如下图2所示。但是，这样做了以后，当使用打印预览时，就看不到分页符了。

图2

第3种：使用下面的VBA程序来除去分页线。

Sub RemovePageBreaks()

Dim wb As Workbook

Dim wks As Worksheet

Application.ScreenUpdating = False

For Each wb In Application.Workbooks

For Each wks In wb.Worksheets

wks.DisplayPageBreaks = False

Next wks

Next wb

Application.ScreenUpdating = True

End Sub

该程序遍历所有打开的工作簿，去掉每个工作簿中每个工作表的分页线。可以看到，Worksheet对象的DisplayPageBreaks属性控制分页线是否显示。代码中，外层的For Each循环遍历当前打开的所有工作簿，内层的For Each循环遍历工作簿中的工作表，然后将其DisplayPageBreaks属性设置为False，不显示分页线。

综合比较上述3种方法，个人觉得使用VBA代码更方便一些。