合并单元格，一个在工作中很常见的，但是是令写（工作表）公式和VBA代码的人都很不喜欢的东东，今天来讲讲与它相关的操作语法。

1、Range(“A1:B2”).Merge；合并A1到B2单元格，共4个单元格。也可写成： Range(“A1”).resize(2,2).Merge，这种写法只需知道起始单元格地址。注意：合并时如果除A1之外的单元格有数据的话，会弹出提示（会造成代码中断），只保留下A1单元格的数据。

2、Range(“A1”).MergeCells；MergeCells属性 是判断此单元格是否是合并单元格，是则返回True值，否返回False。只返回逻辑值。

3、Range(“A2”).MergeArea.Address(0,0) ；返回被合并的单元格的地址区域，地址是个范围。接前面的语句，此处返回的值为”A1：B2”，Address不带参数（0,0）返回的地址带$符号。

4、Range(“a1”).MergeArea.Count；合并单元格中 单元格的数量。接上面示例，返回值为4。Range(“A1”).MergeArea.Rows.Count；合并单元格涵盖的行数。接上面示例，返回值为2。Range(“A1”).MergeArea.Columns.Count；合并单元格涵盖的列数。接上面示例，返回值为2。

5、range(“A1:B2”).UnMerge ；拆分合并的单元格，不弹出提示，将原数据留置在A1单元格（即原合并区域最左上方的单元格中）。

Application.DisplayAlerts = False
rw = Selection.Rows.Count   ’得到选择区域包含的行数
cl = Selection.Columns.Count  ’得到选择区域包含的列数
If rw