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

发布网友发布时间：2022-04-22 13:50

我来回答

共5个回答

热心网友时间：2023-10-18 21:40

软件版本：Office2013

举例说明如下：

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

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

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

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

热心网友时间：2023-10-18 21:40

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

运行上面的程序即可

热心网友时间：2023-10-18 21:41

选中要检查的区域，然后运行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

热心网友时间：2023-10-18 21:41

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

热心网友时间：2023-10-18 21:42

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

全部栏目

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