3.选择录制宏
4.随便取一个名字
5.设置好后，在页面布局，分隔符，重设一下分页符
6.选择第二个单元格，插入分页符
7.插入后效果
8.停止录制，查看宏
9.编辑宏
10.打开来如上所示
11.修改一下代码 添加循环 执行
12.效果如图
13.打印预览效果 成功了
14.小结
VBA代码是
Sub Macro1() ActiveSheet.ResetAllPageBreaks For i = 2 To 10 Range('A' & i).Select ActiveWindow.SelectedSheets.HPageBreaks.Add
Before:=ActiveCell Next i
End Sub
