VBA判断Excel选择区域是否有合并单元格
时间:2023-05-04 20:47:35
要想判断合并单元格,得分为两种情况:
①:当前选中的单元格为合并单元格;
②:选区内有合并单元格;
代码一:
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
经过测试验证,代码一比代码二更具有效率。在使用的时候,将如上的代码放到过程里面即可直接使用。
标签:VBA判断Excel选择区域是否有合并单元格
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
wps工作表如何批量去掉单元格里数字后面的空格?
2023-11-09 19:37:54
Word如何插入坐标系?Word设置坐标轴的教程
2022-09-25 05:16:11
![](https://img.aspxhome.com/file/2023/3/30853_0s.jpg)
Word工具栏也能启动应用程序?
2023-12-08 13:53:13
打开Word时提示“无法注册这篇文档”的解决办法
2022-05-27 21:24:20
![](https://img.aspxhome.com/file/2023/1/29181_0s.jpg)
Win10专业版桌面假死怎么解决?Win10专业版桌面假死三种处理方法
2023-11-14 14:35:50
![](https://img.aspxhome.com/file/2023/1/49481_0s.png)
如何自动调整Excel单元格行高和列宽
2023-02-14 21:37:23
![](https://img.aspxhome.com/file/2023/8/37698_0s.jpg)
Word中怎样自动生成公式编号
2022-03-29 22:05:12
win10 usb鼠标不供电
2023-11-09 15:28:08
![](https://img.aspxhome.com/file/2023/6/48336_0s.jpg)
Word中页面设置添加A3幅面的操作技巧
2023-12-06 08:40:47
如何用公式解决Excel2016校验难题
2023-05-28 15:08:48
![](https://img.aspxhome.com/file/2023/9/36299_0s.jpg)
word中简繁体转换的技巧
2022-07-11 09:08:01
Word解决乱码的技巧
2022-12-01 20:04:13
如何设置让两个word文档并排显示对两个文档的内容对比
2023-11-30 06:46:24
![](https://img.aspxhome.com/file/2023/6/18976_0s.jpg)
Word2007设置前言与正文的页眉.页脚不一样
2023-02-17 12:20:05
Excel 2007中添加或删除工作表背景
2022-10-24 15:45:43
![](https://img.aspxhome.com/file/2023/3/38343_0s.jpg)
在Word2010文档窗口添加按钮
2023-12-14 07:08:45
![](https://img.aspxhome.com/file/2023/9/21789_0s.jpg)
如何对word文档表格内容设置局部保护?
2023-01-30 16:07:52
![](https://img.aspxhome.com/file/2023/6/35516_0s.png)
在Word中加入特殊符号的秘诀
2023-06-27 08:40:46
![](https://img.aspxhome.com/file/2023/0/24860_0s.gif)
word表格到另一个WORD无法复制的原因
2023-11-27 18:08:20
![](https://img.aspxhome.com/file/2023/8/18358_0s.jpg)
word 如何输入随机文字 word输入随机文字动画教程
2023-08-24 00:55:59
![](https://img.aspxhome.com/file/2023/0/33390_0s.gif)