如何在Excel固定标题单元格中添加页码（不使用页眉/页脚）

阿华AIGC实验室

2026-5-14

解决Excel固定标题行下的边框内页码插入问题

你遇到的这个问题我太熟悉了——公司格式要求严，页眉页脚的位置不符合边框要求，找的VBA又因为标题行固定导致页码不更新，确实头疼。咱们一步步来解决：

首先先分析下你用的那段VBA的问题：它是基于当前活动单元格的位置计算页码，只给一个单元格赋值，而你设置了固定标题行（重复标题行），每一页的这个位置其实是标题行的重复，代码没遍历每一页的对应数据区域单元格，所以页码自然不变。

下面给你两个靠谱的解决方案，按需选择：

方法1：修改VBA代码，自动为每一页指定位置插页码

这个方法会自动遍历每一页，在你指定的边框内单元格插入正确的页码和总页数，完美适配固定标题行的场景。

Sub InsertPageNumbersInBorder()
    ' 适配固定标题行的页码插入，页码放在每页指定单元格（可按需修改位置）
    Dim totalPages As Integer
    Dim currentPage As Integer
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetCell As Range
    Dim pageBreakRow As Long
    Dim startRow As Long
    
    Set ws = ActiveSheet
    totalPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    ' 获取固定标题行的结束行号，数据区域从标题行下一行开始
    startRow = ws.PageSetup.PrintTitleRows
    If startRow <> 0 Then
        startRow = Split(ws.PageSetup.PrintTitleRows, "$")(2) + 1
    Else
        startRow = 1
    End If
    
    pageBreakRow = ws.UsedRange.Row
    currentPage = 1
    
    ' 遍历每一页插入页码
    Do While currentPage <= totalPages
        ' 定位当前页的最后一行（下一个分页符的前一行）
        On Error Resume Next
        pageBreakRow = ws.HPageBreaks(currentPage).Location.Row - 1
        On Error GoTo 0
        
        ' 最后一页用工作表实际最后一行
        If currentPage = totalPages Then
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        Else
            lastRow = pageBreakRow
        End If
        
        ' 这里修改为你需要放页码的单元格，示例是每页最后一行的B列
        Set targetCell = ws.Cells(lastRow, "B")
        targetCell.Value = "Page " & currentPage & " of " & totalPages
        
        currentPage = currentPage + 1
    Loop
End Sub

使用步骤：

先在「页面布局」→「打印标题」里设置好顶端标题行（固定的标题范围）
调整代码里的Set targetCell = ws.Cells(lastRow, "B")，把B改成你要放页码的列，lastRow是每页最后一行，也可以改成固定行（比如每页标题行下第10行）
选中目标工作表，运行这段代码，每一页的指定位置就会生成正确的页码，且完全在边框内

方法2：无VBA方案——公式+辅助列

如果不想用宏，可以试试这个方法，适合分页固定的场景：

插入一个辅助列（比如最右边的Z列）

在Z列的第一个数据行（标题行下一行）输入公式：

=IF(ROW()<=3, "", "Page " & ROUNDUP(SUMPRODUCT(--(ROW()>=$A$1:ROW())/((GET.DOCUMENT(64,ROW())=GET.DOCUMENT(64,ROW($A$1:ROW())))*1)),0) & " of " & GET.DOCUMENT(50))

把公式里的ROW()<=3改成你的标题行总行数（比如标题行是前3行就写3）