Question

vba判断excel选择区域是否有合并单元格

Answer 1

软件版本：Office2013

举例说明如下：

1.Alt+F11，输入如下代码：

2.返回Excel中，选择一个区域，按下Alt+F8，点击执行：

3.如果选择区域中有合并单元格，就会显示如下：

4.如没有，则显示如下：

Answer 2

Sub admin()
'要想判断合并单元格，得分为两种情况：
'①：当前选中的单元格为合并单元格;  Selection.MergeCells = True
'②：选区内有合并单元格; Selection.MergeCells =Null 即 IsNull(Selection.MergeCells)=True 
If Selection.MergeCells Or IsNull(Selection.MergeCells) Then
MsgBox "选择区域有合并单元格"
Else
MsgBox "选择区域没有合并单元格"
End If
End Sub

运行上面的程序即可

Answer 3

选中要检查的区域，然后运行test宏就可以了，效果如下图：

Option Explicit
Sub test()
    Dim rng As Range
    For Each rng In Selection
        If rng.MergeCells Then
            MsgBox "所选区域存在合并过的单元格"
            Exit For
        End If
    Next rng
End Sub

Answer 4

1、可使用如下代码进行判定：
复制如下代码到模块中运行即可。
Sub xxx()
If Selection.MergeCells = True Then
MsgBox "YES"
Else
MsgBox "NO"
End If
End Sub

2、以上代码需要每次选择后都运行，可使用VBA事件自动完成：
复制如下代码到sheet模块中运行即可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.MergeCells = True Then
MsgBox "YES"
Else
MsgBox "NO"
End If
End Sub

Answer 5

Sub 判断合并单元格()
Dim Rng As Range
   For Each Rng In Selection
      If Rng.MergeCells = True Then
          MsgBox "选定的区域中包含合并单元格"
          Exit For
      End If
   Next
   MsgBox "选定区域中没有合并单元格"
End Sub

 先选定一个单元格区域,然后执行该VBA