嘿，我来帮你搞定Excel工作簿里多工作表连续页码的问题！下面两种方法，你根据自己的工作表数量选就行：

如果你的工作表没几个，手动设置最直接：

• 打开目标工作簿，选中第一个要加页码的工作表
• 点击顶部的「插入」选项卡，找到「页眉和页脚」按钮，进入编辑模式
• 切换到页脚区域，直接输入1（这就是第一个工作表的页码）
• 依次切换到后续工作表，重复上面的步骤，分别输入2、3、4……直到所有工作表都设置完成

要是工作表数量多，手动一个个改太麻烦，用VBA批量处理就爽多了：

• 按下Alt + F11组合键，打开VBA编辑器
• 在左侧的「项目资源管理器」里，右键点击你的工作簿名称，选择「插入」→「模块」
• 在弹出的空白模块窗口里，粘贴这段代码：

Sub AddContinuousPageNumbers()
    Dim ws As Worksheet
    Dim pageNum As Integer
    pageNum = 1
    
    ' 遍历工作簿里的所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        ' 把页码放在页脚中间，想要靠左/靠右就改成LeftFooter/RightFooter
        ws.PageSetup.CenterFooter = pageNum
        pageNum = pageNum + 1
    Next ws
End Sub

• 按下F5键，或者点击编辑器工具栏上的绿色小三角「运行」按钮，执行代码
• 代码跑完后，关闭VBA编辑器回到Excel，所有工作表的页脚就已经按顺序加上1、2、3……的连续页码啦

小提示 #

如果只想给部分工作表加连续页码，先手动选中这些工作表，然后把代码里的ThisWorkbook.Worksheets改成ThisWorkbook.Windows(1).SelectedSheets，再运行代码就只会处理你选中的工作表了。

内容的提问来源于stack exchange，提问作者Marcia Clemente