要判断合并的单元格,有两个分数:
①:当前选中的单元格为合并单元格;
②:选区内有合并单元格;
代码一:
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
经过测试验证,代码一比代码二更具有效率。在使用的时候,将如上的代码放到过程里面即可直接使用。