判断单元格区域是否存在合并单元格

使用 Range 对象的 MergeCells 属性可以快速判断单元格区域是否包含合并单元格。如果区域内包含合并单元格，此属性的值为 True。

示例一：单个单元格

对于单个单元格，可以直接通过 MergeCells 属性返回值来判断是否包含合并单元格。

以下示例代码判断单元格 B4 是否包含合并单元格：

Sub CheckMerge()
    ' 判断单元格是否有合并单元格
    If Range("B4").MergeCells Then
        MsgBox "包含合并单元格"
    Else
        MsgBox "没有包含合并单元格"
    End If
End Sub

示例二：单元格区域

如果要判断指定的单元格区域是否存在合并单元格，通常会使用遍历单元格的方法。

以下示例代码能够快速判断单元格区域中是否包含合并单元格，而不需要遍历单元格。

Sub CheckMergeCells()
    ' 判断单元格区域是否有合并单元格
    If IsNull(Range("A1:F8").MergeCells) Then
        MsgBox "单元格区域包含合并单元格"
    Else
        MsgBox "单元格区域不包含合并单元格"
    End If
End Sub

当单元格区域中同时包含合并单元格和非合并单元格时，MergeCells 属性将返回 Null，因此可以使用 IsNull 函数来判断返回结果，如果表达式为 Null，则 IsNull 将返回 True，否则 IsNull 将返回 False。