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

10/11/2015来源:Excel教程人气:3110

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

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

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

  代码一:

  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

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