如何在Excel页眉/页脚中将页码从数字形式(123)改为字母形式(abc)？

我明白你现在的困境啦！你想把页眉里的数字页码改成a、b、c这类字母形式，尝试了几种VBA写法但要么报错要么没效果，其实问题出在Excel页眉里的&P是个占位符，不是实际的数字值——Excel只有在渲染页眉的时候才会把它替换成真实的页码，所以你直接对&P做字符串运算或者替换肯定行不通。

先帮你拆解下之前尝试的问题：

• Chr("&P" + 96)报类型不匹配：因为&P是字符串，不能直接和数字96做加法运算，只有数字才能和96相加后用Chr转成字母。
• 用Replace替换&P里的数字没效果：你操作的是字符串"&P"本身，而不是Excel最终渲染出来的页码数字，自然不会有变化。
• Chr("1"+96)能得到"a"：是因为这里的"1"被Excel隐式转换成了数字1，1+96=97，对应字母a，但&P没办法被隐式转成数字，所以这个方法没法直接套用。

下面给你两个可行的VBA解决方案，按需选择：

方案一：支持多页（含超过26页的aa、ab格式） #

这个方法会自动遍历工作表的所有打印页面，给每个页面设置对应的字母页码，适合多页文档的情况：

Sub SetLetterPageNumbersInHeader()
    Dim ws As Worksheet
    Dim totalPages As Long
    Dim hBreak As HPageBreak
    Dim letterPage As String
    
    Set ws = ActiveSheet
    totalPages = ws.PageSetup.Pages.Count
    
    ' 取消奇偶页/首页不同的页眉设置，确保统一处理
    ws.PageSetup.DifferentFirstPageHeaderFooter = False
    ws.PageSetup.OddAndEvenPagesHeaderFooter = False
    
    ' 遍历所有水平分页符，设置各节的页眉
    For Each hBreak In ws.HPageBreaks
        letterPage = NumberToLetter(hBreak.Location.Page)
        hBreak.Location.PageSetup.RightHeader = letterPage
    Next hBreak
    
    ' 设置最后一节的页眉
    ws.PageSetup.RightHeader = NumberToLetter(totalPages)
End Sub

' 辅助函数：把数字转换成Excel列样式的字母（1→a，26→z，27→aa...）
Function NumberToLetter(num As Long) As String
    Dim div As Long
    Dim modNum As Long
    Dim result As String
    
    Do While num > 0
        div = (num - 1) \ 26
        modNum = (num - 1) Mod 26
        result = Chr(modNum + 97) & result ' 要大写就把97改成65
        num = div
    Loop
    
    NumberToLetter = result
End Function

代码说明： #

1. 辅助函数NumberToLetter可以处理任意数字的转换，支持超过26页的场景（比如27页显示aa，28页显示ab）。
2. 主函数会先获取工作表的总打印页数，然后遍历每个水平分页符对应的节，给每个节设置对应的字母页眉，最后处理最后一节。

方案二：单页/少页简化版 #

如果你的工作表只有1页，或者只需要固定设置某个字母页码，可以用这个简化版：

Sub SetSingleLetterPageHeader()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 单页情况下，页码是1，转成a；如果是第3页就把1改成3
    ws.PageSetup.RightHeader = Chr(1 + 96) ' 输出a
    ' 要大写的话用Chr(1 + 65)，输出A
End Sub

备注：内容来源于stack exchange，提问作者Dan