随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA按条件插入分页符?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在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
5、[5]用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,工作表已按需求遇“审核:”则插入分页符,如图