VBA判断Excel选择区域是否有合并单元格
要想判断合并单元格，得分为两种情况：
①：当前选中的单元格为合并单元格;
②：选区内有合并单元格;
代码一：
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
经过测试验证，代码一比代码二更具有效率。在使用的时候，将如上的代码放到过程里面即可直接使用。
分享：
相关推荐
- 【excel】 WPS官网下载教程 04-19
- 【excel】 excel背景图片怎么设置 04-13
- 【excel】 表格中的斜线怎么弄 03-09
- 【excel】 怎样把pdf转换成excel文档格式 03-03
- 【excel】 excel表格数字怎么变正常 10-12
- 【excel】 Excel单元格怎么添加下拉选项 09-09
- 【excel】 excel怎么自定义下拉菜单 09-09
- 【excel】 excel怎么设置数据有效性 09-08
- 【excel】 excel怎么调换行列位置 09-02
- 【excel】 excel怎么自动编号排序 08-31
本周热门
-
1
Excel常用函数公式大全 2013/08/05 -
2
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
-
3
在Excel工作表区域内快速移动或滚动的几个方法 2013/06/20
-
4
Excel快速删除所有空行的三种常用方法 2016/05/19
-
5
EXCEL中如何批量去掉带数字的前缀? 2016/07/25
-
6
Excel"锅状"对比图表如何制作 2016/10/19
-
7
Excel表格输入时间是斜杠的格式怎么转换成横杠的格式? 2016/10/30
-
8
Excel中的数据如何按日期顺序排列的方法 2013/05/17
本月热门
-
1
Excel常用函数公式大全 2013/08/05
-
2
excel求和出现#value是什么原因? 2016/08/18
-
3
Excel怎么设置英文首字母大写 2020/08/24 -
4
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
-
5
怎样在excel表格中用今天的日期减去上次的日期? 2016/07/20
-
6
EXCEL表中#N/A是什么意思?#N/A是什么? 2015/05/26
-
7
Excel打印时每页都有表头设置方法 2015/05/13
-
8
excel表格如何把一格分成三格 2016/09/24
-
9
Excel中将15位身份证号转换为18位 2014/07/08
-
10
excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24