Excel在打印有合并单元格的表格的时候，分页符有时候总会在合并的单元格中间，导致打印出来单元格显示不完整。解决这个问题的最简单的办法就是手动调整下分页符的位置，这个是最简单办法，一页一页去检查调整, 但有时我们要打印几十上百页的文件时，这个办法就让人十分抓狂。下面我们就用VBA的方式，来轻松解决这个头痛的问题。工具/原料moreexcelvba方法/步骤1/4分步阅读

点击工作表有下角 切换到 分页预览 模式

并调整好 横向的分页符 和 缩放比例等打印相关参数，

这时excel会根据打印纸张的大小自动帮你设置好纵向的分页符，这时你就会发现，有些分页符一不小心会把合并的单元格分隔开

2/4

老规矩复制以下VBA代码到excel的VBA编辑器中：

===========我就是那传说中的分割线===============

Sub 调整水平分页符位置()

Dim index!, theHPageBreaksCount!, rng!, temp, count!, index2!, mark As String

Dim a As Range

mark = A 要判断的合并单元格所在列

index2 = 1 要判断的合并单元格所在列

theHPageBreaksCount = ActiveSheet.HPageBreaks.count 获取当前工作表总的分页数

当调整分页符的时候总分页数会增多，这里预估会多出50页以内，一般够用，如果不够用可以将50改大点的数

For rng = 1 To theHPageBreaksCount + 50

On Error Resume Next 发生错误直接跳出循环，结束运行

Set a = ActiveSheet.HPageBreaks(rng).Location

index = a.Row 获取分页符在第几行

Debug.Print 分页符所在行： index

Application.StatusBar = 正在分析第 rng 分页符，请稍候…………

temp = Cells(index, 1).MergeArea.Row

temp = Cells(index, 1).MergeArea.count

Do Until Cells(index, index2).MergeCells = False Or (Cells(index, index2).MergeCells = True And (index = Cells(index, index2).MergeArea.Row Or index = (Cells(index, index2).MergeArea.count + Cells(index, index2).MergeArea.Row)))

Application.StatusBar = 正在调整第 rng 分页符，请稍候…………

count = 1 + count

index = index - 1

Set ActiveSheet.HPageBreaks(rng).Location = Range(mark index)

Loop

Next

Application.StatusBar =

MsgBox 执行完毕！共调整 count 页分页符

End Sub

===========我就是那传说中的分割线===============

不知道如何使用VBA，请参考：

3/4

如果你合并的单元格不在第一列，就需要修改代码中的参数值：

mark = A 要判断的合并单元格所在列

index2 = 1 要判断的合并单元格所在列

例如你合并的单元格在第二列（B列）就改为：

mark = B 要判断的合并单元格所在列

index2 = 2 要判断的合并单元格所在列

4/4

运行VBA，就会自动帮你调整好分页符了。

如果此文对你有帮助，请点个赞 谢谢

EXCEL分页符调整分页符自动添加分页符VBA