VBA中引用单元格与区域

在Visual Basic中，Range对象既可表示单个单元格，也可表示单元格区域。

   引用   含义

Range("A1")        单元格A1

Range("A1:B5")    从单元格A1到单元格B5的区域

Range("C5:D9,G9:H16")    多块选定区域

Range("A:A")       A列

Range("1:1")                      第一行

Range("A:C")                     从A列到C列的区域

Range("1:5")                     从第一行到第五行的区域

Range("1:1,3:3,8:8")          第1、3 和8行

Range("A:A,C:C,F:F")         A、C 和F列

通过使用行列编号来引用单元格，可用Cells来引用单个单元格。该属性返回代表单个单元格的Range对象。

cells(行数，列数)

因为可用变量替代编号，所以Cells属性非常适合于在单元格区域中循环，例如：

Sub CycleThrough()
 Dim Counter As Integer
 For Counter = 1 To 20
  Worksheets("Sheet1").Cells(Counter, 3).Value = Counter
 Next Counter
End Sub

如果对工作表应用Cells属性时不指定编号，该属性将返回代表工作表上所有单元格的Range对象。下述Sub过程清除活动工作簿中Sheet1上的所有单元格的内容。

Sub ClearSheet()
Worksheets("Sheet1").Cells.ClearContents
End Sub

引用行和列

可用Rows属性或Columns属性来处理整行或整列。这两个属性返回代表单元格区域的Range对象。下面举例说明了使用Rows和Columns属性的一些行和列的引用；

引用    含义
Rows(1)                   第一行
Rows                       工作表上所有的行
Columns(1)             第一列
Columns("A")         第一列
Columns                工作表上所有的列

用快捷记号引用单元格

可用方括号将A1引用样式或命名区域括起来，作为Range属性的快捷方式。这样就不必键入单词“Range”或使用引号，如下例所示。

Sub SetValue()
 [A1].Value = 30
End Sub