在Excel表格中，页眉页脚是我们经常需要使用到的功能 。有些时候我们需要在多个工作表中应用相同的页眉页脚，如何快速有效的实现呢？本文将从多个角度分析复制Excel工作表中页眉页脚到其他工作表的方法 。
一、 复制方式
文章插图
1.手动复制
手动复制页眉页脚是最直接的方法 。我们可以先在一个工作表中创建好页眉页脚，然后复制到其他工作表中 。具体操作步骤如下：
①打开要复制的工作表
②切换到页面布局视图
③选中工作表中的页眉页脚区域
④用鼠标右键点击页眉页脚区域，选择“复制”
⑤切换到其他工作表，用鼠标右键点击页眉页脚区域，选择“粘贴”
2.利用格式刷
利用格式刷复制页眉页脚也是一种简单的方法 。具体操作步骤如下：
①打开要复制的工作表
②在页面布局视图下选中页眉页脚区域
③单击“格式刷”按钮
④切换到其他工作表中，用鼠标单击页眉页脚区域，完成复制
二、 页眉页脚的设置
页眉页脚的设置是复制的前提 。我们需要在一个工作表中设置好页眉页脚，才能进行复制 。具体操作步骤如下：
①打开要设置页眉页脚的工作表
②切换到页面布局视图，单击“页眉页脚”按钮
【复制Excel工作表中页眉页脚到其他工作表的方法？】③在页眉页脚区域输入要设置的内容
④按ESC键退出“页眉页脚”视图
三、 宏的应用
如果需要在多个工作表中复制页眉页脚，手动复制的方式可能比较繁琐 。这时我们可以利用Excel的宏功能来实现 。具体操作步骤如下：
①打开要复制页眉页脚的工作表
②按下“Alt+F11”进入宏编辑器
③在宏编辑器中选择“插入”-“模块”，输入以下代码：
Sub copyHeaderFooter()
Dim i As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> ws.Name Then
ws.PageSetup.DifferentFirstPageHeaderFooter = True
ws.PageSetup.OddAndEvenPagesHeaderFooter = True
ws.PageSetup.HeaderFooter = xlHeaderFooterYes
ws.PageSetup.LeftHeader = ""
ws.PageSetup.CenterHeader = ""
ws.PageSetup.RightHeader = ""
ws.PageSetup.LeftFooter = ""
ws.PageSetup.CenterFooter = ""
ws.PageSetup.RightFooter = ""
ws.PageSetup.FirstPageNumber = xlAutomatic
ws.PageSetup.OddAndEvenPagesHeaderFooter = False
ws.PageSetup.DifferentFirstPageHeaderFooter = False
ws.PageSetup.HeaderFooter = xlHeaderFooterNone
ws.PageSetup.PrintTitleRows = ""
ws.PageSetup.PrintTitleColumns = ""
ws.PageSetup.PrintArea = ""
ws.PageSetup.PrintComments = xlPrintNoComments
ws.PageSetup.PrintQuality = 600
ws.PageSetup.CenterHorizontally = False
ws.PageSetup.CenterVertically = False
ws.PageSetup.Orientation = xlPortrait
ws.PageSetup.Draft = False
ws.PageSetup.PaperSize = xlPaperA4
ws.PageSetup.FirstPageNumber = xlAutomatic
ws.PageSetup.Order = xlDownThenOver
ws.PageSetup.BlackAndWhite = False
ws.PageSetup.Zoom = False
ws.PageSetup.PrintErrors = xlPrintErrorsDisplayed
ws.PageSetup.OddAndEvenPagesHeaderFooter = True
ws.PageSetup.DifferentFirstPageHeaderFooter = True
ws.PageSetup.HeaderFooter = xlHeaderFooterYes
ws.PageSetup.LeftHeader = ""
ws.PageSetup.CenterHeader = ""
ws.PageSetup.RightHeader = ""
ws.PageSetup.LeftFooter = ""
ws.PageSetup.CenterFooter = ""
ws.PageSetup.RightFooter = ""
ws.PageSetup.FirstPageNumber = xlAutomatic
ws.PageSetup.OddAndEvenPagesHeaderFooter = False
ws.PageSetup.DifferentFirstPageHeaderFooter = False
推荐阅读
- microsoft office excel加密的方法？
- 把excel导入手机通讯录的方法步骤？
- Excel中添加抬头的操作方法步骤？
- excel中的把打印线不让显示 删除的方法？
- excel中人民币货币符号输入方法及更改默认货币格式？
- excel2003隐藏行与列的方法？
- excel2003根据日期进行筛选的方法？
- 学习用Excel做数据分析之移动平均方法？
- 手腕关节疼痛怎么办呢
- 认识审计工作有哪一些重要性