如何每30行添加分页符

Question

这就是我所拥有的：

 Sub Page_Break()
     For i = 1 To 799 Step 30
         ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1)
     Next
 End Sub

• 我需要第一页为1-30行，第二页为31-60，依此类推。
• 现在它与行数/页数不一致。
• 我确保所有行的行高都相同。

Answer 1

这样做是为了

For i = 30 To 799 Step 30

除非您已合并单元格和其他复杂的内容，否则其余代码都可以。