如何在Excel 电子表格的每个页面上应用不同的页眉或页脚？

网友投稿 446 2023-12-10

如何在Excel电子表格的每个页面上应用不同的页眉或页脚？

默认情况下，当在工作表中插入页眉或页脚时，页眉或页脚内容将应用于所有页面。对于许多人来说，不同的页面在其工作表中可能具有不同的内容。在打印出工作表后，他们倾向于将这些页面与页眉或页脚内容区分开。如何在工作表的每个页面上应用不同的页眉或页脚？本文中的方法可以为您提供帮助。

使用VBA代码在每个页面上应用不同的页眉或页脚

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

下面的VBA代码可以帮助您在工作表的每一页上应用不同的页眉或页脚。请执行以下操作。

1。按其他 + F11 同时打开 Microsoft Visual Basic应用程序的窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块。然后将以下VBA代码复制并粘贴到代码窗口。看截图：

VBA代码：在Excel中的每个页面上应用不同的标题

Sub DifferentHeaderFooter() Dim ws As Worksheet Dim vLeft As Variant, vRight As Variant, xRg As Variant Set ws = ActiveSheet On Error Resume Next vLeft = Array("First page", "Second page", "Third page", "fourth page") xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200") Application.ScreenUpdating = False For i = 0 To UBound(vLeft) With ws.PageSetup .PrintArea = xRg(i) .LeftHeader = vLeft(i) End With ws.PrintPreview Next i Application.ScreenUpdating = True ws.PageSetup.PrintArea = "" End Sub

Copy

1.在VBA代码中，您需要在代码段中分配不同的页眉或页脚名称：vLeft = Array（“第一页”，“第二页”，“第三页”，“第四页”）“。

2.并在代码段中指定当前工作表中每页的打印区域“xRg = Array（“ A1：C50”，“ A51：C100”，“ A101：C150”，“ A151：C200”）“。

3.要应用不同的页脚，请替换“标题代码中带有“页脚“。

3。按 F5 键来运行代码。然后预览弹出窗口，请点击打印按钮开始打印具有不同页眉或页脚的页面。

备注：如果工作表中有4个指定的打印页面，则需要单击打印单击四次以完成整个打印。

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？轻松批量导入、导出、组合和调整数据。