vba 合并单元格信息（vba怎么判断合并单元格）

判断合并单元格，用肉眼很容易就判断了，为什么我要用vba？

先看看下图。

这个我虚构的一张通讯录表格，现实里面情况可能更复杂，包含了职位，座机等等其他信息。

我想干嘛？

说起来简单，就是把这种通讯录表格搞成vcf，直接导入手机，这样就用不着每次打开excel表格查询通讯录了，直接在手机里面查就行了。

那为什么要用vba，不可以一个个地手动录入吗？

你去录入撒！

只要超过50个，我看你的手录完都会抖的。

这里就想到了vba，这个程序一旦弄出来，应该可以帮到很多人，我相信很多人应该会有我一样的需求。

而要实现这个程序，第一步我觉得是先判断合并单元格，因为整个vcf格式，需要填写部门名称，这个部门名称就是合并单元格。

依次判断，是合并单元格就把内容取出来，当作部门名称填写进去。

代码如下：

sub 判断合并单元格（）

if range(“A1”).mergecells=true then

msgbox “合并单元格”

end if

end sub

如下图：

运行后我们得到下图结果：

这个代码没有什么复杂的，关键点有两个。

一是range(“A1”).mergecells，前面的range不用说，这个就是指定的A1,主要是后面的mergecells，这个是A1的属性，值是逻辑型的，也有两个true和false。

true就是是合并单元格，false就是不是合并单元格。

二是if then语句，这个格式为：

if 条件 then

语句

end if

条件为真，那么就执行语句，条件为假就执行end if后面代码。