Excel自动调整分页符，不分断合并单元格

在Excel中，打印合并单元格的表格时，分页符偶尔会插入到非完整单元格区域，引发显示不全。尽管调整分页符位置是最直接的解决策略，逐页查找并移动显得繁琐，特别是面对大量页面的文档时，操作过程极其不便。

1、 点击工作表有下角 切换到 分页预览 模式并调整好 横向的分页符 和 缩放比例等打印相关参数，这时excel会根据打印纸张的大小自动帮你设置好纵向的分页符，这时你就会发现，有些分页符一不小心会把合并的单元格分隔开

2、 老规矩复制以下VBA代码到excel的VBA编辑器中："===========我就是那传说中的分割线===============Sub 调整水平分页符位置()Dim index!, theHPageBreaksCount!, rng!, temp, count!, index2!, mark As StringDim a As Rangemark = "A" "要判断的合并单元格所在列index2 = 1 "要判断的合并单元格所在列?theHPageBreaksCount = ActiveSheet.HPageBreaks.count "获取当前工作表总的分页数"当调整分页符的时候总分页数会增多，这里预估会多出50页以内，一般够用，如果不够用可以将50改大点的数?For rng = 1 To theHPageBreaksCount + 50On Error Resume Next "发生错误直接跳出循环，结束运行?Set a = ActiveSheet.HPageBreaks(rng).Locationindex = a.Row ? "获取分页符在第几行Debug.Print "分页符所在行：" & indexApplication.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)? LoopNext?Application.StatusBar = ""?MsgBox "执行完毕！共调整" & count & "页分页符"End Sub"===========我就是那传说中的分割线===============不知道如何使用VBA，请参考：7怎么批量修改文件名-高级篇3如果你合并的单元格不在第一列，就需要修改代码中的参数值：mark = "A" "要判断的合并单元格所在列index2 = 1 "要判断的合并单元格所在列例如你合并的单元格在第二列（B列）就改为：mark = "B" "要判断的合并单元格所在列index2 = 2 "要判断的合并单元格所在列