全民一起VBA提高篇-第十七回

三原则优化录制代码 一属性玩转合并表格

主要内容：

一、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