以下VBA代码可以给Excel添加分页符。
开发工具--宏……
新建一个模块,里面写VBA。
Sub 宏1()
'
' 宏1 宏
'
'
Range("A7").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub
这样,可以在A7行前面加入一个分页栏。
以下VBA代码可以给Excel添加分页符。
开发工具--宏……
新建一个模块,里面写VBA。
Sub 宏1()
'
' 宏1 宏
'
'
Range("A7").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub
这样,可以在A7行前面加入一个分页栏。