查找内容行已水平打印字幕线

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