判断合并单元格,用肉眼很容易就判断了,为什么我要用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后面代码。
,