方法1:调整前面单元格的行高度,使合并单元格整体移动到下一页;
方法2:插入分页符。在合并单元格点击,点“页面布局”——“分页符”——“插入分页符”。注意插入的分页线与自动分页线的区别:插入的是短虚线,自动的是点线。
在“打印预览”中查看效果,如果合并的行内容被分页,那么可在合并的行前插入“分页符号”,强制将合并行列到下一行打印。
Sub 合并单元格不分页()
Dim i%, sht As Object
On Error Resume Next
Set sht = ActiveSheet
For i = 1 To sht.HPageBreaks.Count
ActiveSheet.HPageBreaks(i).Delete
Cells(sht.HPageBreaks(i).Location.Row, 1).Select
If Selection.MergeCells = True Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next i
End Sub