Excel表格批量添加分页符

作者:白雪 | 创建时间: 2023-05-24
Excel表格上面的分页符是作为打印一页的分隔标志。如下图所示,每三行作为一页打印输出(即:添加一条分页符),手工添加,确实比较麻烦,如何才能快速的添加。...
Excel表格批量添加分页符

操作方法

Excel表格上面,函数公式、手动无法办到的事情,可以借助VBA程序来完成。 点击Excel表格菜单栏上面的【开发工具】、【Visual Basic】打开VBA编辑器。

在VBA编辑器的菜单栏上面点击【插入】、【模块】插入代码模块。

在模块的代码框里边输入以下程序代码,然后按下【F5】键运行。 Sub Fenyefu() Dim i, j i = 1   '初始值赋1 Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表 For j = 1 To 1000        '循环次数,即:添加分页符的个数 i = i + 3                '每执行一次For循环,自动加3,即:每隔3行添加一个分页符 mysheet1.HPageBreaks.Add Before:=mysheet1.Cells(i, 1)  '在此单元格上方添加分页符 Next End Sub

回到Excel表格界面,将会看到已经已经都插入了分页符。

由于每张工作表最多只能插入1026个分页符,如果超过,将会出错。

初步接触VBA程序代码时,不清楚程序代码什么写时,可以使用录制宏的方法录制程序,之后再对录制的代码进行修改成所需的。如:录制一个插入分页符的宏,之后打开VBA程序里面查看所录制宏的代码,再加以修改即可。

温馨提示

个人,仅供参考。
点击展开全文

更多推荐