EXCEL宏使用经验集：[4]Range的用法

1、赋值给某单元格：

Worksheets("Sheet1").Range("A5").Value = 33

Worksheets("Sheet1").Range("A5").Value = "TEST"

2、引用单元格:

Dim myRange As Range'设置对单元格区域的引用Set myRange = Worksheets("Sheet1").Range("A1:D5")'对Range对象进行操作myRange.Formula = "=RAND()"myRange.Font.Bold = True

3、清除单元格:

Worksheets(1).Range("A1:H8").ClearContents

Worksheets(1).Range("A1:H8").Clear

4、选取单元格区域(Select方法):

Worksheets("Sheet1").Range("A1:D5").Select

5、选取多个区域(Union方法):

Dim rng1 As Range, rng2 As Range, myMultiAreaRange As RangeWorksheets("sheet1").ActivateSet rng1 = Range("A1:B2")Set rng2 = Range("C3:D4")Set myMultiAreaRange = Union(rng1, rng2)myMultiAreaRange.Select