Excel表格批量添加分页符

1、Excel表格上面，函数公式、手动无法办到的事情，可以借助VBA程序来完成。

点击Excel表格菜单栏上面的【开发工具】、【Visual Basic】打开VBA编辑器。

2、在VBA编辑器的菜单栏上面点击【插入】、【模块】插入代码模块。

3、在模块的代码框里边输入以下程序代码，然后按下【F5】键运行。

Sub Fenyefu()

Dim i, j

i = 1   '初始值赋1

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

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

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

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

Next

End Sub

4、回到Excel表格界面，将会看到已经已经都插入了分页符。

5、由于每张工作表最多只能插入1026个分页符，如果超过，将会出错。

6、初步接触VBA程序代码时，不清楚程序代码什么写时，可以使用录制宏的方法录制程序，之后再对录制的代码进行修改成所需的。如：录制一个插入分页符的宏，之后打开VBA程序里面查看所录制宏的代码，再加以修改即可。