全民一起VBA提高篇 第十七回 三原则优化录制代码，一属性玩转合并表格

 

相关知识点

Worksheet.rows(8):表格第8行全部

Worksheet.Column(5):表格第5列全部

Worksheet.rows(“2:3”):一次性返回多行

Worksheet.Column(“B:E”): 一次性返回多列

Range.Mergecells: 判断一个单元格是否是完全合并单元格，是返回Ture，否则False，部分合并的单元格则返回Null，表示无效数据。

IsNull：判断变量是否是Null，不能用等号判断，要用IsNull

Mergecells=Ture:即可实现合并单元格，也可直接写r.merge，=False解除合并单元格，可以直接写r.unmerge

Merge Ture:按行合并，此方法可以多行处理

Range.select:此方法是选中

Selection:此属性是目前被选中状态的单元格区域

宏代码优化：尽量合并不必要的select和selection；删除不必要的对象属性；尽可能的减少点号的数量（深度）多用with      end with

 

例1 判断是否是合并单元格

Sub mergetest()

     Dim r as range

     Set r=Range(“E7:F8”)

     If r.mergecells=True Then

            Msgbox”该区域是完全合并单元格”

     ElseIf r.mergecells=False Then

            Msgbox”该区域不包含任何合并单元格”

     ElseIf ISNull（r.mergecells）Then

            Msgbox”该区域有部分合并单元格”

     End if

End Sub