如何在Excel中仅在最后一页打印页脚？

默认情况下，使用Excel内置的“页眉和页脚”功能，您可以轻松地在工作表的每一页底部添加页脚。如果您只想在工作表的最后一页添加页脚，该如何操作呢？本教程提供了一个VBA脚本，帮助您逐步完成此任务。

仅使用VBA代码在最后一页打印页脚

请运行以下VBA代码，以仅在Excel的最后一页打印自定义页脚。

1. 打开要打印的工作表，并设置一个仅在最后一页显示的自定义页脚。

2. 按下“Alt” + “F11”键打开“Microsoft Visual Basic for Applications”窗口。

3. 在“Microsoft Visual Basic for Applications”窗口中，点击“插入” > “模块”。然后将以下VBA代码复制到“模块（代码）”窗口中。

VBA代码：仅在最后一页打印页脚

Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
    Dim xCount As Long
    Dim xWSh
    xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    Set xWSh = Application.ActiveSheet
    With Application.ActiveSheet
    .PageSetup.RightFooter = ""
        If xCount > 1 Then
            .PrintOut From:=1, To:=xCount - 1
        End If
            .PageSetup.RightFooter = "Type your footer information here"
            .PrintOut From:=xCount, To:=xCount
    End With
End Sub

注意：在代码中，请将此内容“在此处输入您的页脚信息”替换为您自己的页脚信息。

4. 按下“F5”键运行代码。

然后，活动工作表将被打印，并且自定义页脚仅会插入到最后一页。