excel中满足条件插入分页符

1. 打开excel文档，选中要编辑或打印的工作表。

   

2. 在功能区域“视图”选项卡上的“工作簿视图”组中，单击“分页预览”。

   

3. 然后会出现“欢迎使用分页预览”对话框，单击“确定”。如果不想在每次转到分页预览视图时都出现这个对话框，勾选“不再显示此对话框”复选框，然后单击“确定”。

   

4. 要插入水平分页符，点击要在其下方插入分页符的这一行。如果是要插入垂直分页符，点击在其右侧插入分页符的这一列即可。

   

5. 然后在“页面布局”选项卡上的“页面设置”组中，单击“分隔符”。

   

6. 选中第29行，设置水平分页符，就会得到如下图所示的水平分页符。

   

7. 选中第D列，设置垂直分页符，就会得到如下图所示的垂直分页符。

   

   
   

   
   

使用VBA
按住ALT，依次按F11,I,M

粘贴下面的代码至右侧窗口后按F5运行。
==============================================================
Sub 分页()
For I = 2 To [A65536].End(xlUp).Row
If Cells(I, 1) = 1 Then ActiveSheet.HPageBreaks.Add BEFORE:=Cells(I-2, 1)
Next
End Sub
===============================================================
参考 http://zhidao.baidu.com/question/78664764.html