养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

怎样使用VBA按条件插入分页符

时间:2024-11-10 23:41:40

随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA按条件插入分页符?

怎样使用VBA按条件插入分页符

工具/原料

手机

方法/步骤

1、首先在开发工具中打开VBA编辑器

怎样使用VBA按条件插入分页符

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA按条件插入分页符

3、在VBA编辑器中插入模块

怎样使用VBA按条件插入分页符

4、在模块当中输入如下代码,然后运行Sub遇审核二字则插入分页符()DimiAs咯悝滩镞Long,jAsLong,A_rowAsLong,arr,rr惺绅寨瞀Application.ScreenUpdating=False'关闭屏幕更新WithActiveSheet.ResetAllPageBreaks'重新设置指定工作表上的所有分页符.PageSetup.PrintArea=""'设置打印区域为空.PageSetup.PrintTitleRows="$1:$3"'行标题A_row=.Range("a1048576").End(xlUp).Row'a列的最后一行arr=.Range("a1:a"&A_row)'为数组arr赋值Fori=2ToA_rowIfarr(i,1)="审核:"Ori-j>46Then'如果单元格是“审核:”或连续46次没有插入分页符时.HPageBreaks.AddBefore:=.Cells(i+1,1)'插入分页符j=i'记录当前i值EndIfNextEndWithApplication.ScreenUpdating=TrueEndSub

怎样使用VBA按条件插入分页符

5、[5]用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,工作表已按需求遇“审核:”则插入分页符,如图

怎样使用VBA按条件插入分页符

© 一点知识