Как добавить разрывы страниц каждые 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 и т. Д.
• Прямо сейчасон не соответствует количеству строк / Page.
• Я убедился, что высота строки одинакова для всех строк.

Answer 1

Выполните For следующим образом:

For i = 30 To 799 Step 30

С остальным кодом все в порядке, если только вы не объединили ячейки и другие усложняющие вещи.