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

2013-09-22 16:35 阅读 512 次 评论关闭

通过VBA,我们可以判断Excel选择区域内是否有合并单元格,如下为相应的两种VBA代码,请择其一二使用。

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

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

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

代码一:

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

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

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:VBA判断Excel选择区域是否有合并单元格 | 猎微网

评论已关闭!