Excel-VBA单元格的引用方法

DZZZZ

1、使用Range属性引用单元格区域

1. Sub MyRng()
   
2.     Range("A1:B4, D5:E8").Select
   
3.     Range("A1").Formula = "=Rand()"
   
4.     Range("A1:B4 B2:C6").Value = 10
   
5.     Range("A1", "B4").Font.Italic = True
   
6. End Sub

复制代码

2、使用Cells属性引用单元格区域

1. Sub MyCell()
   
2.     Dim i As Byte
   
3.     For i = 1 To 10
   
4.         Sheets("Sheet1").Cells(i, 1).Value = i
   
5.     Next
   
6. End Sub

复制代码

3、使用快捷记号实现快速输入

1. Sub FastMark()
   
2.     [A1] = "Excel 2007"
   
3. End Sub

复制代码

4、使用Offset属性返回单元格区域

1. Sub RngOffset()
   
2.     Sheets("Sheet1").Range("A1:B2").Offset(2, 2).Select
   
3. End Sub

复制代码

5、使用Resize属性返回调整后的单元格区域

1. Sub RngResize()
   
2.     Sheets("Sheet1").Range("A1").Resize(4, 4).Select
   
3. End Sub

复制代码

karstification

小明

谢谢分享，vba事半功倍