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
