你遇到的这个问题其实挺常见的——Excel的自动分页符逻辑确实不会单纯只看你指定的列范围，它会默认考虑整个行的高度和合并状态，哪怕你只给A列设置自动分页，只要该行有跨多行的合并单元格，Excel还是会按照整体行高来计算分页，所以才会出现切断A51-A53合并单元格的情况。

不过别担心，我们可以通过手动计算分页位置、避开合并单元格的方式来解决这个问题，下面给你一个实用的VBA代码方案：

实现思路 #

核心逻辑是：先设定每页期望的行数，然后遍历工作表，每到预计的分页位置时，检查该行是否属于合并单元格区域，如果是，就把分页符调整到合并区域的首行上方，确保不会切断合并单元格；如果不是，就直接在预计位置添加分页符。

具体VBA代码 #

Sub AddPageBreaksAvoidMergedCells()
    Dim ws As Worksheet
    Dim bottomRow As Long
    Dim currentRow As Long
    Dim pageRow As Integer ' 自定义每页的行数，这里设为50行
    Dim mergedRange As Range
    
    ' 替换成你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取A列最后一行的行号
    bottomRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 设置每页想要容纳的行数
    pageRow = 50
    
    ' 先清除所有已有的手动分页符
    ws.ResetAllPageBreaks
    
    ' 从第2行开始遍历（根据你的需求调整起始行）
    currentRow = 2
    
    Do While currentRow + pageRow <= bottomRow
        ' 计算预计的分页位置
        Dim targetRow As Long
        targetRow = currentRow + pageRow
        
        ' 检查目标行的A列单元格是否属于合并区域
        If ws.Cells(targetRow, "A").MergeCells Then
            ' 获取整个合并区域
            Set mergedRange = ws.Cells(targetRow, "A").MergeArea
            ' 将分页符调整到合并区域的第一行上方
            targetRow = mergedRange.Row
        End If
        
        ' 添加手动分页符
        ws.Rows(targetRow).PageBreak = xlPageBreakManual
        
        ' 更新当前行，继续下一页的计算
        currentRow = targetRow
    Loop
End Sub

代码说明 #

• 先通过ResetAllPageBreaks清除所有旧的手动分页符，避免冲突；
• 自定义pageRow变量来设置每页的行数（比如你示例中的50行，这样分页符会在第51行上方）；
• 遍历过程中检查目标行是否在合并单元格内，如果是，就自动定位到合并区域的首行，确保分页符不会切断合并单元格；
• 最后用xlPageBreakManual添加手动分页符，代替自动分页的逻辑。

如果你的合并单元格分布在其他列，只需要把代码中ws.Cells(targetRow, "A")的"A"改成对应的列号即可。

内容的提问来源于stack exchange，提问作者Douglas