excel - 如何每 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 行，依此类推。
• 现在它与行数/页数不一致。
• 我确保所有行的行高都相同。

标签： excelvba

Answer 1

像这样执行 For ：

For i = 30 To 799 Step 30

其余代码都很好，除非您合并了单元格和其他复杂的东西。