嘿，这个合并单元格的坑确实挺烦人的！我之前处理Excel文档时也碰到过类似的问题，给你分享个靠谱的解决思路和代码实现：

核心思路就是先判断当前单元格是否属于合并区域，如果是，直接跳到合并区域的最后一行，避免循环重复检查那些被合并的“空单元格”；如果不是合并单元格，再正常判断是否为空并处理分页符。

示例VBA代码实现 #

Sub AddPageBreaksAtEmptyRows()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取当前工作表的最后一行
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    i = 1
    Do While i <= lastRow
        ' 检查当前单元格是否是合并单元格的一部分
        If Cells(i, 1).MergeCells Then
            ' 跳到合并区域的最后一行
            i = Cells(i, 1).MergeArea.Row + Cells(i, 1).MergeArea.Rows.Count - 1
        Else
            ' 判断单元格是否为空
            If IsEmpty(Cells(i, 1)) Then
                ' 在空行前添加分页符
                ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)
            End If
        End If
        ' 进入下一行
        i = i + 1
    Loop
End Sub

关键代码解释 #

• Cells(i, 1).MergeCells：判断当前单元格是否属于合并区域
• Cells(i, 1).MergeArea：获取当前单元格所在的整个合并区域
• MergeArea.Row + MergeArea.Rows.Count - 1：计算合并区域的最后一行行号，让循环直接跳到这里，跳过中间被合并的行
• IsEmpty(Cells(i, 1))：准确判断单元格是否为空（比直接用Cells(i,1) = ""更可靠，能识别真正的空单元格）

额外提示 #

• 如果你要检查的不是第一列，把代码里的Cells(i, 1)改成对应的列号即可（比如Cells(i, 3)对应第三列）
• 运行代码前建议先保存文档，避免意外情况
• 如果合并区域本身是空的，代码也会正常识别并添加分页符，符合你的需求

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