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

我们通常在MS Word中使用页眉和页脚，但是您是否尝试过在Excel工作表中使用页眉和页脚？此过程会将无限的Excel工作表划分为页面并添加页眉和页脚。但是，当我们将页眉和页脚应用于第一张表时，相同的页眉和页脚会添加到工作表中的所有页面，但有时您希望在每个过程中添加不同的页眉和页脚。本教程将帮助您解决此问题，即帮助您了解如何在Excel工作表的每一页上应用不同的页眉和页脚。

在Excel中应用每一页不同的页眉或页脚

在这里，我们将首先创建一个VBA模块，然后将其附加到一个形状。让我们来看一个简单的过程，了解如何在Excel电子表格的每一页上应用不同的页眉或页脚。

步骤1

让我们考虑一个新的Excel工作表。现在右键单击工作表名称并选择“查看代码”以打开vba应用程序，然后单击“插入”，选择“模块”，并输入如下所示的程序。

程序

Sub DifferentHeaderFooter()
'Updated By Nirmal
   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

步骤2

现在，保存启用宏的工作表，然后按Alt + Q退出应用程序。绘制一个矩形形状，右键单击它，然后选择“分配宏”。将出现一个弹出窗口，如下所示。

然后单击按钮，将在打印预览模式下将不同的页眉应用于工作表。现在，要添加不同的页脚，请在VBA代码中将“页眉”替换为“页脚”。

结论

在本教程中，我们使用了一个简单的示例来演示如何为Excel电子表格的每一页应用不同的页眉和页脚，以突出显示特定数据集。

更新于：2023年1月3日

2K+ 次浏览

启动您的职业生涯

通过完成课程获得认证

开始
广告