EXCEL中自动插入分页符.docVIP

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 Act