1-1 使用Cells屬性
使用Cells屬性返回一個Range對象，如下面的代碼所示。
00.00.#001 Sub Cell()
00.#002 Dim icell As Integer
00.#003 For icell = 1 To 100
00.#004 Sheet2.Cells(icell, 1).Value = icell
00.#005 Next
00.#006 End Sub
普通瀏覽復制代碼保存代碼打印代碼
01.#001 Sub Cell()
02.#002 Dim icell As Integer
03.#003 For icell = 1 To 100
04.#004 Sheet2.Cells(icell, 1).Value = icell
05.#005 Next
06.#006 End Sub#001 Sub Cell()<br />
#002 Dim icell As Integer<br />
#003 For icell = 1 To 100<br />
#004 Sheet2.Cells(icell, 1).Value = icell<br />
#005 Next<br />
#006 End Sub
代碼解析：
Cell過程使用For…Next語句為工作表中的A1:A100單元格區域填入序號。
Cells屬性指定單元格區域中的單元格，語法如下：
Cells(RowIndex, ColumnIndex)
參數RowIndex是可選的，表示引用區域中的行序號。
參數ColumnIndex是可選的，表示引用區域中的列序號。
如果缺省參數，Cells屬性返回引用對象的所有單元格。
Cells屬性的參數可以使用變量，因此經常應用于在單元格區域中循環。
1-2 使用快捷記號
在VBA中可以將A1引用樣式或命名區域名稱使用方括號括起來，作為Range屬性的快捷方式，這樣就不必鍵入單詞“Range”或使用引號，如下面的代碼所示。
00.00.#001 Sub Fastmark()
00.#002 [A1：A5] = 2
00.#003 [Fast] = 4
00.#004 End Sub
普通瀏覽復制代碼保存代碼打印代碼
01.#001 Sub Fastmark()
02.#002 [A1：A5] = 2
03.#003 [Fast] = 4
04.#004 End Sub#001 Sub Fastmark()<br />
#002 [A1：A5] = 2<br />
#003 [Fast] = 4<br />
#004 End Sub
代碼解析：
Fastmark過程使用快捷記號為單元格區域賦值。
第2行代碼使用快捷記號將活動工作表中的A1：A5單元格賦值為2。
第3行代碼將工作簿中已命名為“Fast”的單元格區域賦值為4。
注意 使用快捷記號引用單元格區域時只能使用固定字符串而不能使用變量。
