Excel VBA指定列插入分页，纯干货

 

工作中可能有根据某一列的数据插入分页，进行打印

当数据量较大时，分页比较费时

 

 

可以使用以下代码进行分页

（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