以下VBA代码可以给Excel添加分页符。

开发工具--宏……

新建一个模块，里面写VBA。

Sub 宏1()
'
' 宏1 宏
'

'

    Range("A7").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

    
End Sub

这样，可以在A7行前面加入一个分页栏。