Excel-如何在手动分页符时重置页码

我有一本有数百页长的活页簿。我编写了一个宏，每当所选列的内容更改时，它都会插入一个手动分页符。我还希望每次选定列的内容更改时，页码都重置为1，就像我在Word中插入了分节符一样。Excel是否有特殊的分页符来重置页码？该分页符的VBA命令是什么

这是我的密码：

Dim HighlightRange As Range
Dim StoreCell As Range

Set HighlightRange = Selection
For Each StoreCell In HighlightRange
    ActiveSheet.Rows(StoreCell.Row).PageBreak = xlPageBreakNone
    If StoreCell.Value <> StoreCell.Offset(-1, 0).Value Then
        ActiveSheet.Rows(StoreCell.Row).PageBreak = xlPageBreakManual
    End If
Next StoreCell

Dim HighlightRange作为范围
暗淡的存储单元范围
设置HighlightRange=Selection
对于HighlightRange中的每个存储单元
ActiveSheet.Rows（StoreCell.Row）.PageBreak=xlPageBreakNone
如果StoreCell.Value StoreCell.Offset（-1，0）.Value，则
ActiveSheet.Rows（StoreCell.Row）.PageBreak=xlPageBreakManual
如果结束
下一个存储单元

---

谢谢

Excel中没有内置的分页符重置。这是一个很好的问题，但不幸的是，我认为甚至不可能为工作表中的特定页面硬编码唯一的页脚。此外，我假设您所选的列更改在某些或大多数情况下跨越多个页面？如果没有，您可以在工作表的

自定义页脚中硬编码1。是的，多页。第1节有8页。第2节有12条。第3节有7个，等等，这将是一个可重用的模板，用于每月的流程，因此页面的数量也将是可变的。我可以写一个脚本，创建一个新的工作表并剪切和粘贴到该工作表上吗？问题再次在于，纸张的数量是可变的。那么每本书都可以有自己的页码，对吗？是的。如果您编写一个脚本，将单独的部分放在单独的
工作表上，则每个
工作表都会有自己的页码。然后您可以
选择
所有纸张并立即打印。它会重新编号每一张新纸上开始的页面。好主意：）您可以添加一个计数器和循环，并为每个部分更改添加一个新的工作表。您可以轻松地从母版工作表复制标题，或者只需在保留工作表中创建标题，并在创建新工作表后立即将标题复制到新工作表上，然后再复制数据。新工作表可以在临时目录下的新工作簿/xlsx中创建。完成后，可以将其关闭并删除。