用 Range 对象引用单元格

如果将对象变量设置为 Range 对象，即可用变量名方便地操作单元格区域。

下述过程创建了对象变量 myRange，然后将活动工作簿中 Sheet1 上的单元格区域 A1:D5 赋予该变量。随后的语句用该变量代替该区域对象，以修改该区域的属性。

Sub Random()
    Dim myRange As Range
    Set myRange = Worksheets("Sheet1").Range("A1:D5")
    myRange.Formula = "=RAND()"
    myRange.Font.Bold = True
End Sub