EXCEL中自动插入分页符.doc

《EXCEL中自动插入分页符.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、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个字符和它的下

2、一个单元格前四个不一样的话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))=Fa

3、lse'从D5开始循环，如果D5.D6.....不为空格的话IfActiveSheet.Range("D"&i)=1ThenActiveSheet.HPageBreaks.AddBefore:=ActiveSheet.Range("D"&i)'就在单元格下边D5的上边）加分页符EndIfi=i+1'计数器加一，在D列判断下一个单元格LoopEndSub按产品列自动插入分页符Sub按产品型号自动插入分页符()i=5ActiveSheet.ResetAllPageBreaks'重新设置分页符DoWhil

4、eIsEmpty(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+

5、1'计数器加一，在C列判断下一个单元格LoopEndSub