Question

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

Answer 1

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 2

Sub 检查合并()
If Selection.MergeCells Or IsNull(Selection.MergeCells) Then
MsgBox "有合并单元格"
Else
MsgBox "没有合并单元格"
End If

End Sub