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

Question

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

谢谢！