EXCEL自动插入打印分页符

操纵excel宏按照前提判定主动插入打印分页符。操纵下表举列主动分页设置。分页完当作后如图结果。

东西/原料

1
依次点击excel“开辟东西”——“Visual Basic”弹出“Microsoft Visual Basic-excel文件名称”VBA代码编纂器。
2
在如图所示位置点鼠标右键，选择“插入”——“模块”
3
当作功成立了“模块1”
4
点击“工程”办理器中的“模块1”，在右侧的代码窗口中输入响应的代码，
主动插入分页代码如下（斜体为注释）：

Sub Njzhw_FY_AD()
Dim rng As Range
'从4行至25行进行分面操作；
For Each rng In Range("A4:A25")
'以“1”作为分页前提，在A列中的第4行至25行若是有1则在该处插入打印分页符
  If rng.Value = "1" Then
'插入分页符
    ActiveSheet.HPageBreaks.Add rng
  End If
Next
End Sub
5
代码输入后，点击1处的运行按纽，和2处的“运行“按纽。
6
点击如图1处可以反回Excel，点击2处可封闭VBA编纂器。
7
点击“视图”功能选项卡的分页预览，可以看到分页环境。从此表阐发，台区名称共有5个，每个台区名称不跨越1页，分为了5页准确。
8
若是分页不正常或经打消当前打印分页，可以打消当前分页，操作如下：
点击“页面结构”——“分隔符”——“重设所有分页符”
9
重设所有分页符后此表又按默认进行分页，例表只有1页，再次分页点击“开辟东西”——“Visual Basic”不点窜代码直接点击3处的运行按纽，也可以点窜代码后点击3处的运行，再次分好页。