Excel表格批量添加分页符

 时间:2024-10-12 00:04:17

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

Excel表格批量添加分页符

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

Excel表格批量添加分页符

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

Excel表格批量添加分页符

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

Excel表格批量添加分页符

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

Excel表格批量添加分页符

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

Excel表格批量添加分页符
Excel表格批量添加分页符
  • Excel 如何重新设置分页预览
  • 办公软件Excel如何进行分页
  • excel表格打印时怎么设定每页固定行数?
  • excel表格如何第一行始终在每页上端
  • Excel 每一行打印在一页
  • 热门搜索
    我和我的祖国手抄报内容 儿童节手抄报简单漂亮 关于名人的手抄报 光盘行动手抄报内容 安全教育日手抄报 英雄事迹手抄报 小学三年级手抄报 防病毒手抄报大全 科普手抄报内容 祖国在我心中的手抄报