如何在Excel工作表的每一页上应用不同的页眉或页脚？

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

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

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

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

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后复制并将以下 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

注意：

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

注意：如果工作表中有4个指定的打印页面，则需要点击打印按钮四次才能完成整个打印过程。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！