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

要想判断合并单元格，得分为两种情况：

①：当前选中的单元格为合并单元格;

②：选区内有合并单元格;

代码一：

If Selection.MergeCells or IsNull(Selection.MergeCells) Then

MsgBox "选区内有合并单元格"

Else

MsgBox "选区内没有合并单元格"
www.ws46.com

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

经过测试验证，代码一比代码二更具有效率。在使用的时候，将如上的代码放到过程里面即可直接使用。