每1行自动插入分页符为例子，

1.首先将Excel里面的开发工具调用出来，点击“文件”--”选项“--”开发工具“前打钩，再点击”确定“。

2.接下来点击"开发工具",打开VBA编辑器

3.接着在编辑器里面，编写程序，每5行自动分页，再点击运行。小编将本例子的程序编写出来，方便网友复制，程序如下：

Sub 分页()

For i = 6 To 20 Step 1 ' [Step 1]的意思就是1行就执行一次分页

 ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)

Next

End Sub

参数20为前20行执行这样的规则

4.保存的时候，因为应用到宏，所以保存时需另存为启用宏的工作簿的保存类型，下回可直接重新打开。

版权属于：Eric Qiu*

本文链接：http://eblog.ink/archives/137/

转载时须注明出处及本声明