EXCEL中自动插入分页符
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
EXCEL中自动插入分页符
Sub 自动插入分页符()
i = 5
ActiveSheet.ResetAllPageBreaks '重新设置分页符
Do While IsEmpty(ActiveSheet.Range("A" & i)) = False '从A3开始循环，如果A3. A4.....不为空格的话
If Left(ActiveSheet.Range("A" & i).Value, 4) <> Left(ActiveSheet.Range("A" & (i + 1)).Value, 4) Then '如果并且A3. A4....的左边4个字符和它的下一个单元格前四个不一样的话ActiveSheet.HPageBreaks.Add Before:=ActiveSheet.Range("A" & (i + 1)) '就在单元格下边A3(或A4的上边）加分页符
End If
i = i + 1 '计数器加一，在A列判断下一个单元格
Loop
End Sub
正确的代码
按排序列“1”值自动插入分页符
Sub 自动插入分页符()
i = 5
ActiveSheet.ResetAllPageBreaks '重新设置分页符
Do While IsEmpty(ActiveSheet.Range("D" & i)) = False '从D5开始循环，如果D5. D6.....不为空格的话
If ActiveSheet.Range("D" & i) = 1 Then
ActiveSheet.HPageBreaks.Add Before:=ActiveSheet.Range("D" & i) '就在单元格下边D5的上边）加分页符
End If
i = i + 1 '计数器加一，在D列判断下一个单元格
Loop
End Sub
按产品列自动插入分页符
Sub 按产品型号自动插入分页符()
i = 5
ActiveSheet.ResetAllPageBreaks '重新设置分页符
Do While IsEmpty(ActiveSheet.Range("C" & i)) = False '从A3开始循环，如果C3. C4.....不为空格的话
If ActiveSheet.Range("C" & i) <> ActiveSheet.Range("C" & (i + 1)) Then '如果并且C3. C4....的值和它的下一个单元格值不一样的话
ActiveSheet.HPageBreaks.Add Before:=ActiveSheet.Range("C" & (i + 1)) '就在单元格下边C3(或C4的上边）加分页符
End If
i = i + 1 '计数器加一，在C列判断下一个单元格
Loop
End Sub