如何在EXCEL 固定内容的单元格后批量加入分页符？

Sub 分页符()
ActiveSheetResetAllPageBreaks '当前表重置所有分页符
For Each r In ActiveSheetRange("a1:a" & [a65536]End(xlUp)Row) '数组
If rtext = "一" Then '指定文本
ActiveWindowSelectedSheetsHPageBreaksAdd Before:=rOffset(0, 0) '此处可以偏移
End If
Next
End Sub
试一下

用vba可以啊，顺带教大家一个利用记录宏来做vba的方法。

第一步：点击开发工具-记录宏。如图：

第二步：选择单元格A10,点击页面布局-插入分割符。如图：

第三步：点击停止记录宏。得到宏代码如下：

第四步：在宏1的基础上进行代码改造。任务要求：在当前表格中，读取最大行数，从1到最大行数之间，每隔10行插入一个分页符。代码如下：

第五步：运行宏，如图：

第六步：打印预览如图：

给你说一个WORD和EXCLE的快捷键，F4，作用：重复当前 *** 作。这个快捷键很少人用（本人接触的人里面），比如你想插入5行，不需要重复插入5次，而是插入一次以后（再无其他 *** 作），鼠标定位到需要插入的地方按下F4。插入分页符也是如此，插入一个然后按F4。。。。但是你要插入那么多的需要按500下，也不轻松。
另外，楼上说的方法也是可行的，如果需要分页太多而没有什么特殊要求的话完全可以让EXCEL自动分页的。

---