分页符落在错误的行上

Page break is landing on the wrong line

我的分页符落在了错误的行中。我需要它上升一条线。我需要它位于 (2 & 3)、(9 & 10)、( 16 和 17)、23 和 24)。代码找到 "Shipment Order",然后在不在其上方的单元格下方添加 HPageBreak。

问题视觉:

代码:

Sub APageBreakbyOrder()

ActiveSheet.ResetAllPageBreaks

Dim SFind As Integer
Dim LR As Integer

    LR = Cells(Rows.Count, 1).End(xlUp).Row

    For SFind = 1 To LR
    If Cells(SFind, 1).Value = "Shipment Order" Then
    ActiveSheet.HPageBreaks.Add Before:=Rows(SFind + 1)
    End If
    Next

End Sub

这段代码效果很好,我只需要为每个循环将分页符行向上移动一个。我该怎么做?

如果分页符太低了一行,那么如果您删除第

行中的 + 1 很可能是正确的

ActiveSheet.HPageBreaks.Add Before:=Rows(SFind + 1)