VBA判断Excel选择区域是否有合并单元格

    要想判断合并单元格，得分为两种情况：
    ①：当前选中的单元格为合并单元格;
    ②：选区内有合并单元格;
    代码一：
    If Selection.MergeCells or IsNull(Selection.MergeCells) Then
    MsgBox "选区内有合并单元格"
    Else
    MsgBox "选区内没有合并单元格"
    End If
    代码二：
    Flag = False
    For Each Rng In Selection
    If Rng.MergeCells Then
    Flag = True
    Exit For
    End If
    Next
    If Flag Then
    MsgBox "选区内有合并单元格"
    Else
    MsgBox "选区内没有合并单元格"
    End If
    经过测试验证，代码一比代码二更具有效率。在使用的时候，将如上的代码放到过程里面即可直接使用。