合并单元格,一个在工作中很常见的,但是是令写(工作表)公式和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)返回的地址带$符号。
本文转载自:https://www.gylmap.com
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