默认情况下，借助 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

注意：请将代码中的“Type your footer information here”替换为您自己的页脚内容。

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

随后，活动工作表将被打印，且自定义页脚仅添加到最后一页的打印内容中。