工作中可能有根据某一列的数据插入分页,进行打印
当数据量较大时,分页比较费时
可以使用以下代码进行分页
(1)做一个工作表,工作表内容如下表
(2)ALT+F11调出开发工具窗口
(3)对象鼠标右键->新建模块->双击打开模块
(4)复制下面pageBreak代码到模块里
(5)F5执行
在提示框输入A试一下效果,不到一眨眼就好
根据不同列号分页输入对应列号,A B C D E都可以
Sub pageBreak()
Dim i As Integer, j As String
ActiveSheet.ResetAllPageBreaks
j = InputBox("Colum", "PleaseInput") '输入 A回车 有些奇葩会输入文字或数字,此问题很简单,写判断或抛异常
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For i = 2 To [a65536].End(3).Row'从第三行开始分,把2改成3,整数类型,不可以小于2
If Cells(i, j).Value <> Cells(i - 1, j).Value Then
Rows(i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next
Range("A1").Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub