一、导读
工作簿中的页眉是文档的重要组成部分,不过有时候我们需要删除它们。那么,怎么删掉工作簿中的页眉呢?本文将为大家详细介绍删掉页眉的几种方法。
二、方法一:使用鼠标删除页眉
步骤如下:
1. 打开需删除页面的工作表。
2. 点击“视图”选项卡,选择“页眉和页脚”。
3. 鼠标左键单击鼠标指针放在页眉上,并拖动鼠标指针到页脚位置。
4. 选中页眉内容并按下“Delete”键即可删除。
三、方法二:使用VBA删除页眉
步骤如下:
1. 按下快捷键“Alt+F11”打开VBA编辑器。
2. 点击菜单栏中的“插入”选项,选择“模块”。
3. 将下面的代码复制到新建的模块中:
Sub DeleteHeader()
On Error Resume Next
ActiveWindow.View = xlNormalView
ActiveSheet.DisplayPageBreaks = False
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.DifferentFirstPageHeaderFooter = False
ws.PageSetup.OddAndEvenPagesHeaderFooter = False
ws.PageSetup.HeaderMargin = Application.InchesToPoints(0.5)
ws.PageSetup.FooterMargin = Application.InchesToPoints(0.5)
ws.PageSetup.Zoom = False
Next ws
Application.ScreenUpdating = True
End Sub
4. 按下“F5”键。
5. 重新打开工作簿,所有页眉已被删除。
四、
本文通过两种方法详细介绍了如何删除工作簿中的页眉。你可以选择使用鼠标快速删除,也可以利用VBA代码批量删除。希望这篇文章对你有所帮助!