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

Answer 2

如果你想在n = 100时退出那么为什么循环到1000？此外，当您打开一个新的工作簿或在新的工作表上使用代码时，您将永远不会找到分页，因为没有。如果“新鲜”是指已经插入了分页符的工作簿，那么您的代码仍然有效。

Sub Sample()
  For n = 1 To 100
    If Sheets("Sheet1").Rows(n).PageBreak <> xlPageBreakNone Then MsgBox n
  Next
End Sub

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

2 个答案: