Excel 如何实现在工作表中按条件快速插入分页符

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

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

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

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

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

第五步：运行宏，如图：

第六步：打印预览如图：

　　在EXCEL中关于插入和删除分页符的方法很少有人用起，在实际打印中掌握这个方法也可以帮助我们解决不少打印问题。

　　方法/步骤

　　打开Excel，在“视图”菜单中选择“分页预览”

　　在“分页预览”下，我们点击一单元格，右击在d出的菜单中点击“插入分页符”

　　我们看一下效果再分析一下。我们所选择的单元格，进行插入分页符后，在其实会在其左上方增加分页符。如果把分页符看成一个坐标的话，单元格其实是位于第4象限。

　　知道上面的原理，我们就知道怎么快速删除分页符，首先将光标定位于分页符所成坐标的右下方单元格，也就是第4象限。

　　右击在d出的菜单里，你会看到有“删除分页符”了。记住单元格定位在其实单元格是不出现这个“删除分页符”

Sub InsertPB()

'插入

i0 = 20 '初始行

For i = 0 To Int((1048576 - i0) / 58)

ActiveSheetHPageBreaksAdd Before:=Cells(i 58 + i0, 1)

Next

End Sub

Sub DeletePB()

'删除

ActiveSheetResetAllPageBreaks

End Sub