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