Excel表格批量添加分页符_hanfen

个人资料

微博

正文字体大小：大中小

Excel表格批量添加分页符

(2024-02-27 20:47:11)

分类：工作相关

Excel表格上面的分页符是作为打印一页的分隔标志。如下图所示，每十行作为一页打印输出（即：添加一条分页符）。

Sub Fenyefu()

Dim i, j

i = 1 '初始值赋1

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表

For j = 1 To 1000 '循环次数，即：添加分页符的个数

i = i + 10 '每执行一次For循环，自动加10，即：每隔10行添加一个分页符

mysheet1.HPageBreaks.Add Before:=mysheet1.Cells(i, 1) '在此单元格上方添加分页符

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report