一:合并单元格
利用Meger 或将Mergecells属性设置为True方法合并单元格.下面的例子是合并单元格区域A1:A5
private sub 合并单元格( )
   dim myrange as range                     ' 声明对象
   set myrange=range("A1:A5")           ' 给单元格对象赋值为A1:A5区域,可以指定任意单元格
   myrange.merge                               ' 合并该单元格区域
   'myrange.mergecells=true             ' 也可以使用这个方法合并单元格
   set myrange=nothing                      ' 释放变量
end sub
二:取消单元格
首先利用mergearea属性判断某个单元格是否为合并单元格的一部分,如果是,则利用unmerge方法或将mergecells属性设置为false,将合并单元格重新分解为独立的单元格.
private sub 取消合并单元格( )
dim myrange as range
set myrange=range("A1")
if myrange.mergearea.address=myrange.address then
msgbox "该单元格不是合并单元格的一部分"
else
myrange.mergearea.mergecells=false
myrange.mergearea.unmerge
end if
set myrange=nothing
end sub