在VBA中，可以使用多种方法引用单元格。以下是一些常用的方法：
使用Range对象
`Range（"单元格地址"）`：例如，`Range（"A1"）`可以引用单元格A1。
`Range（"首单元格：末单元格"）`：例如，`Range（"A1:C10"）`可以引用从A1到C10的单元格区域。
`Range（单元格1， 单元格2）`：例如，`Range（A1, C3）`可以引用从A1到C3的单元格区域。
`Range（单元格1, "列名"）`：例如，`Range（A1, "D"）`可以引用第1行D列的单元格。
`Range（工作表名.单元格地址）`：例如，`ThisWorkbook.Sheets（"Sheet1"）.Range（"A1"）`可以引用名为"Sheet1"的工作表中A1单元格。
使用Cells属性
`Cells（行号， 列号）`：例如，`Cells（1, 4）`可以引用第1行第4列的单元格，即单元格D1。
`Cells（行号， "列名"）`：例如，`Cells（1, "D"）`可以引用第1行D列的单元格。
`Cells（i, j）`：其中i和j分别是行号和列号，例如，`Cells（i, j）.Value`可以引用第i行第j列单元格的值。
使用ActiveCell属性
`ActiveCell`：引用当前活动单元格。
使用引用变量
可以创建一个Range对象变量，并通过Set语句将其引用到特定的单元格或区域。例如：
```vba
Dim RngCell As Range
Set RngCell = Range（"D3"）
```
使用Offset方法
`Range（"A1"）.Offset（r, c）`：引用相对于起始单元格区域向下r行向右c列的单元格。
使用End方法
`Range（"A1"）.End（xlDown）`：引用连续单元格区域中最底部的单元格（即该单元格下方的单元格为空）。
`Range（"A1"）.End（xlUp）`：引用连续单元格区域中最顶部的单元格（即该单元格上方的单元格为空）。
`Range（"A1"）.End（xlLeft）`：引用连续单元格区域中最左侧的单元格（即该单元格左侧的单元格为空）。
`Range（"A1"）.End（xlRight）`：引用连续单元格区域中最右侧的单元格（即该单元格右侧的单元格为空）。
使用EntireColumn和EntireRow属性
`Range（"A1"）.EntireColumn`：引用起始单元格所在的整列。
`Range（"A1"）.EntireRow`：引用起始单元格所在的整行。
示例代码
```vba
Sub ForCell（）
Dim RngCell As Range
Dim i As Integer
' 声明并设置对象变量
Set RngCell = Range（"D3"）
' 使用循环遍历单元格区域
For i = 1 To 10
' 设置单元格的值
RngCell.Offset（i - 1, 0）.Value = "Cell " & i
Next i
' 清除对象变量
Set RngCell = Nothing
End Sub
```
在这个示例中，我们声明了一个Range对象变量`RngCell`，并将其引用到D3单元格。然后，我们使用一个For循环遍历从D4到D13的单元格，并将每个单元格的值设置为"Cell "加上循环变量i的值。最后，我们清除对象变量`RngCell`。