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

先看看下图。

vba 合并单元格信息(vba怎么判断合并单元格)(1)

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

我想干嘛?

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

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

你去录入撒!

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

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

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

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

代码如下:

sub 判断合并单元格()

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

msgbox “合并单元格”

end if

end sub

如下图:

vba 合并单元格信息(vba怎么判断合并单元格)(2)

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

vba 合并单元格信息(vba怎么判断合并单元格)(3)

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

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

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

二是if then语句,这个格式为:

if 条件 then

语句

end if

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

,