找到哪一行有水平打印选框线

Question

这是糖蜜慢(并且不适用于新鲜的床单):

Sub Test()
 With Sheets("Sheet1")
  .Select

  For n = 1 To 1000
   If .Rows(n).PageBreak <> xlPageBreakNone Then MsgBox n

   If n = 100 Then Exit Sub
  Next
 End With
End Sub

Answer 1

如果你想要做的是在工作表上找到第一个分页符的行,试试这个

Sub WhereIsPageBreak()
    Dim ws As Worksheet
    Set ws = Sheets("Sheet1")

    With ws.HPageBreaks
        If .Count > 0 Then
            MsgBox .Item(1).Location.Row
        Else
            MsgBox "No Page Breaks on this Sheet"
        End If
    End With
End Sub