Excel表格批量添加分页符

Excel表格上面的分页符是作为打印一页的分隔标志。如下图所示，每十行作为一页打印输出（即：添加一条分页符）。
Sub Fenyefu()
Dim i, j

i = 1 '初始值赋1

Set mysheet1 = ThisWorkbook.Worksheets('Sheet1') '定义工作表

For j = 1 To 1000 '循环次数，即：添加分页符的个数

i = i + 10 '每执行一次For循环，自动加10，即：每隔10行添加一个分页符

mysheet1.HPageBreaks.Add Before:=mysheet1.Cells(i, 1) '在此单元格上方添加分页符

Next

End Sub