举个例子和你说吧:
1、先按alt + F11,点“视图”——“工程资源管理器”——点“插入”——“模块”
2、输入如下语句:
Sub 插入分页符()
ActiveSheet.ResetAllPageBreaks '重置所有分页符
For i = 1 To 50 '你的表格有多少行就是多少,我这个表格有50行。
If Cells(i, 1).Value > "" Then '如果本行第一个单元格内容不为空,那么执行下面的语句:
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveSheet.Cells(i, 3)'分页
End If
Next
End Sub
3、点击“右三角符号”运行
温馨提示:答案为网友推荐,仅供参考