1-1 使用Range属性引用单元格区域
选中区域:Range("A1:B4, D5:E8").Select
引用随机函数赋值给单元格:Range("A1").Formula = "=Rand()" 或者 Range("A1:B4, D5:E8").Formula = "=Rand()"
设置斜体:Range("A1", "B4").Font.Italic = True
1-2 使用Cells属性引用单元格区域
Sub MyCell()
Dim i As Byte ‘定义变量
For i = 1 To 10 ’循环
Sheets("Sheet1").Cells(i, 1).Value = i ‘获取工作表及其对应的单元格并赋值
Next
End Sub
1-3 使用快捷记号实现快速输入
[A1] = "Excel 2007" ‘[A1]可以指定单元格
[A1:C3,F2:G5] = "Excel 2007"
1-4 使用Offset属性返回单元格区域
Sheets("Sheet1").Range("A1:B2").Offset(6, 4).Select 'Range("A1:B2")表示选择的区域大小;Offset(6, 4)表示选择的起始点(offset起始点横轴纵轴都以0开始)
1-5 使用Resize属性返回调整后的单元格区域
修改选中的区域:Sheets("Sheet1").Range("A1").Resize(4, 4).Select