复制Excel工作表中页眉页脚到其他工作表的方法?

刘婷婷            来源:优草派

在Excel表格中,页眉页脚是我们经常需要使用到的功能。有些时候我们需要在多个工作表中应用相同的页眉页脚,如何快速有效的实现呢?本文将从多个角度分析复制Excel工作表中页眉页脚到其他工作表的方法。

一、 复制方式

复制Excel工作表中页眉页脚到其他工作表的方法?

1.手动复制

手动复制页眉页脚是最直接的方法。我们可以先在一个工作表中创建好页眉页脚,然后复制到其他工作表中。具体操作步骤如下:

①打开要复制的工作表

②切换到页面布局视图

③选中工作表中的页眉页脚区域

④用鼠标右键点击页眉页脚区域,选择“复制”

⑤切换到其他工作表,用鼠标右键点击页眉页脚区域,选择“粘贴”

2.利用格式刷

利用格式刷复制页眉页脚也是一种简单的方法。具体操作步骤如下:

①打开要复制的工作表

②在页面布局视图下选中页眉页脚区域

③单击“格式刷”按钮

④切换到其他工作表中,用鼠标单击页眉页脚区域,完成复制

二、 页眉页脚的设置

页眉页脚的设置是复制的前提。我们需要在一个工作表中设置好页眉页脚,才能进行复制。具体操作步骤如下:

①打开要设置页眉页脚的工作表

②切换到页面布局视图,单击“页眉页脚”按钮

③在页眉页脚区域输入要设置的内容

④按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

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.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.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

End If

Next

End Sub

④按下F5键执行宏

四、 注意事项

在复制页眉页脚时需要注意以下几点:

1.不同的工作表可能有不同的打印设置,所以需要把所有的设置都复制过来。

2.复制页眉页脚时需要把“不同的第一页页眉页脚”和“偶数页页眉页脚”设置为true。

3.如果需要复制页码,需要把“页脚”中的页码设置为“自动”。

5. 如果粘贴时出现错误,可以尝试在“页面布局”中重新打开“页眉页脚”,然后关闭。

【原创声明】凡注明“来源:优草派”的文章,系本站原创,任何单位或个人未经本站书面授权不得转载、链接、转贴或以其他方式复制发表。否则,本站将依法追究其法律责任。
TOP 10
  • 周排行
  • 月排行