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

ms excelmicrosoft technologiescomputers更新于 2024/9/19 13:00:17

我们通常在 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