三原则优化录制代码 一属性玩转合并表格
主要内容：
一、Worksheet.cells与Range.cells的区别
（1）Worksheet.cells(1,1)代表工作表所有单元格的第一行第一列；
Range.cells(1,1)代表该Range内部的第一行第一列；
（2）同理Worksheet.rows(8)与Rang.Rows(8)的区别
（3）Worksheet.rows和Range.columns均可以一次返回多行/列。比如
Rows.("2:3")/columns("B:E")
二、合并单元格
（1）多个单元格合并之后，仍被VBA认为是各自独立的单元格；
（2）第一个单元格的值为合并之后显示的内容，其他单元格被认为是空值；
（3）判断是否有合并单元格，Range.MergeCells属性：
当该Range完全合并为一个单元格时，该属性为True；
当该Range完全不包含合并单元格时，该属性为False；
其他情况返回：Null
（4）判断一个变量是否为Null，可以用“=”而要使用函数IsNull（X）
If IsNull（Range（"E6:F8").MergeCells)=True Then
Sub 判断是否有合并单元格的标准表达()
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
（5）Mergecells还可以直接用来合并单元格。
Sub 合并单元格练习()
Dim r As Range
Set r = Range("B3:C4")
r.MergeCells = True
End Sub
提示：r.Mergecells=False则解除合并
（6）Range.Merge：将该Range合并为一个单元格；Range.UnMerge：取 消合并。
Sub 合并单元格练习2()
Application.DisplayAlerts = False
Dim r As Range
Set r = Range("D7:F9")
r.Merge True
Application.DisplayAlerts = True
End Sub
提示1：r.Merge可以按行合并；
提示2：Application.DisplayAlerts = False可以关闭提醒框；见基础篇第二十一回。
（7）Select属性，可以用来选中单元格。
工作表的Selection属性可以帮我们找到当前屏幕正处于选中状态的Range区域。
Sub 选中标红练习()
Dim r As Range, r1 As Range
Set r = Selection
For Each r1 In r
If r1.Value > 500 Then
r1.Interior.Color = vbRed
End If
Next
End Sub
（8）优化录制宏的代码
提示1：宏在录制过程中是模仿人类的操作选中单元格，这一操作非常消耗时间。
提示2：合并录制宏中的Select与Selection，直接应用单元格的属性，这是简化录制宏的最有效的方法。
提示3：删除录制宏中不必要的属性设置。
提示4：尽可能的减少"."的使用。如Range.Cells.Font.Color=True，
尽量使用With End with。
如：With Worksheets.Cells.Font
.Color=VbRed
.Bold =True
.Intalic=True
End With