如何在Excel電子表格的每個頁面上應用不同的頁眉或頁腳？

默認情況下，當在工作表中插入頁眉或頁腳時，頁眉或頁腳內容將應用於所有頁面。 對於許多人來說，不同的頁面在其工作表中可能具有不同的內容。 在打印出工作表後，他們傾向於將這些頁面與頁眉或頁腳內容區分開。 如何在工作表的每個頁面上應用不同的頁眉或頁腳？ 本文中的方法可以為您提供幫助。

使用VBA代碼在每個頁面上應用不同的頁眉或頁腳

使用VBA代碼在每個頁面上應用不同的頁眉或頁腳

下面的VBA代碼可以幫助您在工作表的每一頁上應用不同的頁眉或頁腳。 請執行以下操作。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic應用程序的窗口。

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個指定的打印頁面，則需要單擊 列印 單擊四次以完成整個打印。