excel怎么连续页码

Excel连续页码？这事儿，说出来都是一把辛酸泪啊！每次一听到这个需求，我脑子里就条件反射地蹦出好几幅画面：深夜里，办公室的灯还亮着，打印机嗡嗡作响，而你，对着屏幕上那些死活接不上的页码，眉头紧锁，恨不得把电脑直接从窗户扔出去！没错，说的就是你，那个为了几页报告、几张发票、几十页财务报表，在Excel的页眉页脚设置里反复横跳，最后依旧一头雾水的小可怜。

我啊，跟Excel这老伙计打交道十多年了，从它那简陋的界面用到现在功能琳琅满目，别的都还好说，唯独这“页码”的坑，是真真切切地把我折磨过无数回。你以为它跟Word一样，点一下“插入页码”就万事大吉了？哈！那你可真是太天真了！Excel的脾气，可远比你想象的要“古怪”得多，尤其是在多张工作表需要连续编号的时候，那简直就是一场与程序猿的智力与耐力大比拼。

咱先说说最基础、也是最容易让人产生错觉的那种情况吧。你打开一份单页的Excel表格，想给它加个页码，这简单，简直是幼儿园级别。你摸索着点开【页面布局】—【打印标题】—【页眉/页脚】，然后在那儿找到【自定义页眉】或者【自定义页脚】。你看啊，这里面花里胡哨的按钮一堆，找到那个长得像“#”的图标，通常是【插入页码】；旁边那个像“#/#”的，是【插入页数】。你啪地一下，点上一个，或者两个都点上，比如写成“第 &[页码] 页 共 &[总页数] 页”，再点击确定，然后去【打印预览】里瞧一眼，嘿，还真出来了！第一页显示“第 1 页 共 1 页”，完美！这时候你心里可能还会窃喜：看吧，Excel也没那么难嘛！

但！是！ 别高兴得太早。这只是你的一厢情愿，是Excel给你下的一个套。当你的报表不是一页，而是好几页的时候，比如A3纸打出来有三页，或者内容实在太多，Excel自动帮你分成了四页，你再回去预览，会发现每一页的页码都是连续的：1、2、3、4。这也没毛病啊？对，这时候还没毛病，因为这是在同一张工作表内。Excel内部自己帮你做了个计算，把这张工作表的所有打印区域都算进去了。这就像你在Word文档里，一个文档多页，它自然就能连续编号一样。

真正的噩梦，是从你手上有多个工作表，而且这些工作表你都需要连续打印，并且页码也要连续的时候开始的。

比如说，你有一个财务总账，Sheet1是明细表，Sheet2是汇总表，Sheet3是图表分析。你现在想把这三张表一起打印出来，要求：明细表打完，汇总表接着明细表的页码往下编，图表分析再接着汇总表的页码往下编。如果你还是按照刚才那种“天真”的方法，分别去每张工作表的页眉页脚里设置“第 &[页码] 页 共 &[总页数] 页”，你会看到什么？

Sheet1可能显示“第 1 页 共 5 页”、“第 2 页 共 5 页”……直到“第 5 页 共 5 页”。 然后你打开Sheet2，它可能显示“第 1 页 共 2 页”、“第 2 页 共 2 页”。 Sheet3呢？“第 1 页 共 1 页”。

看到了吧？每一张工作表都从自己的“第1页”开始编号，并且总页数也只计算了当前工作表的总页数。这根本不是我想要的“连续页码”啊！简直要气死了！我需要的明明是“第 1 页 共 N 页”、“第 6 页 共 N 页”、“第 8 页 共 N 页”这种效果！

那么，面对Excel这副“油盐不进”的模样，我们到底该怎么办？难道真的要一张张表手动改页码？别闹了，几百页的报表，改到手抽筋也改不完！

我告诉你，这中间可不是一招两式就能搞定的，得看你的具体需求和你的“内功”深浅。

第一招：治标不治本，但有时候真管用——“打印整个工作簿”的障眼法。

这招儿其实是利用了Excel的一个“漏洞”或者说特性。当你选择【文件】—【打印】—【设置】里面，把“打印活动工作表”改成“打印整个工作簿”的时候，Excel它会很“听话”地，把整个工作簿里的所有能打印的区域，都视为一个整体，然后帮你自动连续编号。

你试试看，把之前Sheet1、Sheet2、Sheet3的页眉页脚都设置成“第 &[页码] 页 共 &[总页数] 页”，然后选择“打印整个工作簿”。这时候，你会惊喜地发现，哇，页码真的连续了！Sheet1是1-5页，Sheet2是6-7页，Sheet3是8页。而且总页数也变成了“共 8 页”。

你看，是不是有种“柳暗花明又一村”的感觉？是不是觉得Excel突然变得“善解人意”了？

BUT！ （我知道你又要说但是了）这招儿也有它的局限性。它要求你的所有工作表都是默认的从1开始编号。如果你中间某张工作表因为某种原因，想让它从一个特定的数字开始编号（比如从第10页开始），这招就不灵了。而且，如果你有些工作表只是作为数据源，不想打印，或者你只想打印工作簿里的一部分工作表，这招也会把你不想打印的那些内容也计算进去，甚至打印出来，那就麻烦了。所以，这招适用于你整个工作簿都想连续打印的情况。

第二招：稍微有点技术含量，手动计算页码起始值——“瞒天过海”大法。

这招儿就需要你稍微动动脑子了。它的核心思想是：手动告诉Excel，每张工作表的页码从哪里开始。

具体怎么操作呢？

1. 确定每张工作表的页数。 这需要你进入每张工作表的【打印预览】，在左下角那里，会显示“1/X”，那个X就是当前工作表在不考虑连续编号的情况下，它自己的总页数。把这些数字都记下来。
   • 比如：Sheet1有5页，Sheet2有2页，Sheet3有1页。
2. 计算起始页码。
   • Sheet1的起始页码：1 (保持不变)
   • Sheet2的起始页码：Sheet1的页数 + 1 = 5 + 1 = 6
   • Sheet3的起始页码：Sheet1的页数 + Sheet2的页数 + 1 = 5 + 2 + 1 = 8
3. 设置每张工作表的页码起始值。
   • 进入Sheet1的【页面布局】—【打印标题】—【页眉/页脚】—【页眉/页脚】选项卡。
   • 找到【起始页码】这个设置项，Sheet1保持1不变。
   • 切换到Sheet2，同样的地方，把【起始页码】改为6。
   • 切换到Sheet3，把【起始页码】改为8。
   • 然后每张表的页眉页脚里都设置成“第 &[页码] 页”，或者“第 &[页码] 页 共 &[总页数] 页”（这里的总页数，Excel依然只会显示当前工作表的总页数，这是它的“顽固”）。

当你这样设置完之后，分别去每张表的【打印预览】里看，你会发现： Sheet1：第1页、第2页……第5页。 Sheet2：第6页、第7页。 Sheet3：第8页。

瞧！页码是不是连续起来了？这下心里是不是舒服多了？这种方法最大的优点是，你可以灵活选择打印哪些工作表，而且页码的起始位置可以完全自定义。它避免了“打印整个工作簿”的捆绑销售。

但是，它也有它的缺点。最致命的一点就是：如果你的数据增删了，导致某张工作表的页数发生变化，你之前的所有计算和设置就全部失效了！ 你需要重新计算、重新设置。这在数据变动频繁的报表中，简直就是一场灾难，你每天都要重复这个枯燥无味的工作，会把你逼疯的。而且，那个“共 &[总页数] 页”的问题依然存在，每张表还是显示自己的总页数，而非整个连续打印的总页数。如果这很重要，你可能需要手动在页眉页脚里写死总页数，但那样也失去了动态性。

第三招：终极杀手锏——VBA代码，让Excel乖乖听话。

如果你的Excel工作簿页数多，工作表也多，而且数据变动频繁，你又不想每天跟Excel页码玩“猫捉老鼠”的游戏，那么，请出我们的VBA，就是你唯一的救赎了！

VBA（Visual Basic for Applications），听起来是不是很高大上，像是程序员才玩的东西？别怕，咱们不是要你写一套复杂的管理系统，只是用它来自动化页码的设置，说白了就是，把你上面手动计算和设置起始页码的步骤，用一段代码来替你完成。

它的核心逻辑是这样的： 1. 定义一个变量，用来累计总页数。 2. 遍历工作簿中的每一张工作表。 3. 对于每张工作表，先获取它自己的打印页数。 4. 把这个页数加到累计总页数里。 5. 然后，设置当前工作表的起始页码，让它等于前一张工作表累计结束的页码加1。 6. 同时，动态地修改每张工作表页眉页脚里的“共 X 页”这个部分，让它显示整个工作簿的总页数。

来，我给你一个大致的代码思路（具体代码会因你的打印区域、页眉页脚设置等细节有所不同，这里只是一个示例，给你一个方向）：

```vba Sub 设置连续页码() Dim ws As Worksheet Dim totalPages As Long ' 整个工作簿的总页数 Dim currentPageStart As Long ' 当前工作表的起始页码 Dim i As Long

' 步骤1: 预计算整个工作簿的总页数
totalPages = 0
For Each ws In ThisWorkbook.Worksheets
    ' 确保工作表是可见且需要打印的
    If ws.Visible = xlSheetVisible And ws.Name <> "一些你不想打印的辅助表" Then ' 可以根据名称排除一些表
        ws.Activate
        ' 这里会触发页面的计算，得到当前工作表的总页数
        totalPages = totalPages + ws.PageSetup.Pages.Count
    End If
Next ws

currentPageStart = 1 ' 第一张工作表从1开始

' 步骤2: 遍历工作表并设置页码
For Each ws In ThisWorkbook.Worksheets
    If ws.Visible = xlSheetVisible And ws.Name <> "一些你不想打印的辅助表" Then
        ws.Activate
        ' 设置起始页码
        ws.PageSetup.FirstPageNumber = currentPageStart ' 或直接设置为currentPageStart

        ' 获取当前工作表的总页数（这只是它自己的页数）
        Dim wsPages As Long
        wsPages = ws.PageSetup.Pages.Count

        ' 设置页眉或页脚（以页脚为例）
        ' 这里替换掉原有的页码格式，确保是连续页码和总页数
        ' 例如：在页脚右侧显示 "第 [页码] 页 共 [总页数] 页"
        ws.PageSetup.RightFooter = "第 " & "&[页码]" & " 页 共 " & totalPages & " 页"

        ' 更新下一张工作表的起始页码
        currentPageStart = currentPageStart + wsPages
    End If
Next ws

MsgBox "连续页码设置完成！", vbInformation

End Sub

```

你把这段代码（需要根据你的实际情况修改微调）复制到Excel的VBA编辑器里（按下 Alt + F11 键，在左侧项目窗口找到你的工作簿，右键点击“插入”->“模块”，然后把代码粘贴进去），然后在需要的时候运行一下这个宏。

你会发现，所有被你选中的工作表，页码都自动设置成了连续的，而且“共 X 页”也显示的是整个打印区域的总页数！从此，你再也不用担心数据变动导致页码错乱了，一键搞定，简直是解放双手、提升幸福感的神器！

当然，VBA的门槛相对高一点，需要你对Excel的VBA对象模型有点了解。如果你是小白，可能需要花点时间学学基础。但相信我，为了解决Excel页码这个顽疾，这点投入绝对是值得的。

最后，我想强调几个无论是用哪种方法，都至关重要的“常识”：

1. 明确打印区域： 无论你用什么方法，请务必在【页面布局】中，清晰地设置你的【打印区域】！这是Excel计算页码的基础。如果你不设，Excel就会把你表格里所有有内容的地方都算进去，导致页数多出来一大截，页码自然也跟着乱七八糟。
2. 善用打印预览： 设置完页码，第一时间去【打印预览】里检查，而不是直接打印出来发现问题。这是排查问题、节约纸张的最好方法。
3. 调整缩放比例与分页符： 有时候页码不对，不是页码设置的问题，而是你的表格内容太多，默认一页装不下。在【页面布局】里，你可以调整【缩放比例】或者手动插入/删除【分页符】，来控制每页显示的内容，从而影响总页数。页数变了，自然会影响页码的连续性。
4. PDF大法： 如果你最终只是需要一个电子版的、连续页码的文档，直接将整个工作簿保存为PDF往往是最省事的方法。PDF会自动把所有选定的工作表作为一个整体进行连续编号，而且不易出错。这是我经常推荐给那些怕麻烦的朋友的“偷懒”秘籍。

Excel这东西，爱恨交织，就像一个脾气古怪但能力超强的老伙计。你得摸透它的脾气秉性，知道它哪里“轴”，哪里又有点“小聪明”。连续页码这事儿，看起来简单，但背后却隐藏着Excel对“页面”和“工作表”的独特理解。搞懂了它，你就能少走很多弯路，少掉几根头发。下次再遇到这种问题，别着急上火，想想我说的这些招儿，总有一款适合你。祝你顺利，我的“表”友！