Excel – 如何重置页面编号在手动分页符

我有一本长达数百页的工作簿。 我写了一个macros，在每次select列的内容发生更改时插入手动分页符。 我也希望页面编号每当所选列的内容改变时重置为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 

谢谢！