您好,欢迎访问三七文档
当前位置:首页 > 商业/管理/HR > 项目/工程管理 > EXCEL中自动插入分页符
EXCEL中自动插入分页符Sub自动插入分页符()i=5ActiveSheet.ResetAllPageBreaks'重新设置分页符DoWhileIsEmpty(ActiveSheet.Range(A&i))=False'从A3开始循环,如果A3.A4.....不为空格的话IfLeft(ActiveSheet.Range(A&i).Value,4)Left(ActiveSheet.Range(A&(i+1)).Value,4)Then'如果并且A3.A4....的左边4个字符和它的下一个单元格前四个不一样的话ActiveSheet.HPageBreaks.AddBefore:=ActiveSheet.Range(A&(i+1))'就在单元格下边A3(或A4的上边)加分页符EndIfi=i+1'计数器加一,在A列判断下一个单元格LoopEndSub正确的代码按排序列“1”值自动插入分页符Sub自动插入分页符()i=5ActiveSheet.ResetAllPageBreaks'重新设置分页符DoWhileIsEmpty(ActiveSheet.Range(D&i))=False'从D5开始循环,如果D5.D6.....不为空格的话IfActiveSheet.Range(D&i)=1ThenActiveSheet.HPageBreaks.AddBefore:=ActiveSheet.Range(D&i)'就在单元格下边D5的上边)加分页符EndIfi=i+1'计数器加一,在D列判断下一个单元格LoopEndSub按产品列自动插入分页符Sub按产品型号自动插入分页符()i=5ActiveSheet.ResetAllPageBreaks'重新设置分页符DoWhileIsEmpty(ActiveSheet.Range(C&i))=False'从A3开始循环,如果C3.C4.....不为空格的话IfActiveSheet.Range(C&i)ActiveSheet.Range(C&(i+1))Then'如果并且C3.C4....的值和它的下一个单元格值不一样的话ActiveSheet.HPageBreaks.AddBefore:=ActiveSheet.Range(C&(i+1))'就在单元格下边C3(或C4的上边)加分页符EndIfi=i+1'计数器加一,在C列判断下一个单元格LoopEndSub
本文标题:EXCEL中自动插入分页符
链接地址:https://www.777doc.com/doc-1197256 .html