VBA 单元格引用操作步骤

韩超2026-07-05约 8 分钟1,427 字主编

执行前检查

$ 要完成: VBA 单元格引用是操作 Excel 单元格区域的三种基本方式： Range 直接指定、 Cells 行列...
$ 适用范围: 变量循环

VBA 单元格引用是操作 Excel 单元格区域的三种基本方式：Range直接指定、Cells行列索引、Offset相对偏移。掌握这三种引用，就能用代码精确读写任意单元格数据，替代数千次手动操作。新手最常犯的错误——忘记锁定行列号导致循环失控、混用 Range 与 Cells 索引规则报错——本文逐一用可复制的例子说明。

VBA 单元格引用的三种基本方式

引用方式	语法示例	适用场景	典型返回值
`Range` 直接引用	`Range("A1")`	固定地址、命名区域	单元格对象
`Cells` 行列索引	`Cells(2, 1)`	循环遍历行/列	单元格对象
`Offset` 相对偏移	`Range("A1").Offset(2, 1)`	相对当前位置移动	单元格对象

最佳使用场景

Range 适合处理固定不动的数据区域，例如汇总表头、标题行、命名区域。
Cells 配合 For 循环批量处理连续区域，例如逐行扫描销售记录。
Offset 适合动态计算目标位置，例如在汇总行下方插入新数据后仍能正确指向下一行。

操作步骤

步骤 1：在 VBA 编辑器中确定目标工作表

打开 VBA 编辑器（Alt + F11），插入模块。在模块顶部用 With 语句锁定目标工作表，避免后续代码在不同工作表间串位。

With ThisWorkbook.Worksheets("销售数据")
    ' 后续所有单元格引用前加一个点，表示在此工作表内操作
End With

步骤 2：用 `Range` 读写固定单元格

假设销售数据表中 A1 是日期头、"B2"是第一条产品名。在 With 内部写入：

MsgBox .Range("A1").Value  ' 读取标题
.Range("B2").Value = "产品A"  ' 写入产品名

如果区域包含多行多列，可写为 Range("A1:B5")。

步骤 3：用 `Cells` 配合循环处理连续行

将下面表格中的销售额填入 C 列（假设 A 列是产品名、B 列是数量、C 列是金额，金额 = 数量 × 单价，单价显示在 E1 单元格）：

产品名	数量
产品A	10
产品B	8
产品C	12

先获取单价（固定地址），再逐行填入公式值。

Dim 单价 As Double
Dim 最后行 As Long
Dim i As Long

单价 = .Range("E1").Value
最后行 = .Cells(.Rows.Count, 1).End(xlUp).Row  ' 取A列最后非空行号

For i = 2 To 最后行
    .Cells(i, 3).Value = .Cells(i, 2).Value * 单价
Next i

步骤 4：用 `Offset` 动态定位汇总行

假设销售表第 1 行是标题，第 2~10 行是数据，第 11 行是汇总。要在汇总行下方增加当月的总销售额，汇总行不确定行号时，用 Offset 从当前区域的最后一行偏移：

Dim 汇总行 As Range
Set 汇总行 = .Range("A1").End(xlDown)  ' 跳至最后非空行（假设A列连续）
汇总行.Offset(2, 0).Value = "总计"
汇总行.Offset(2, 1).Value = Application.WorksheetFunction.Sum(.Range("B2:B10"))

Offset(2, 0) 表示向下 2 行、列不动。若需向右偏移，将第二个参数改为正值。

公式或快捷键示例

从 VBA 写入 Excel 公式

以下示例在 VBA 中往 D2 写入公式，而非写入计算结果。公式本身是绝对引用 $B$2，下拉复制时不会走位。

.Range("D2:D10").Formula = "=IF($B$2 > 0, $C$2, 0)"

如果需要「相对引用 + 行号随行变化」，用 FormulaR1C1：

.Range("D2:D10").FormulaR1C1 = "=IF(RC2 > 0, RC3, 0)"

R1C1 格式中 RC2 表示「当前行、第 2 列」，下拉后自动变为 RC2（行号变化，列固定）。

常见错误

错误现象	错误原因	修正方法
1004 运行时错误	`Range` 中写入了工作表不存在的地址，或跨工作表未指定父对象	确保地址正确；所有引用前加上 `Worksheet.` 前缀或放在 `With` 内部
循环只写了第一条数据	`Cells(i, 1)` 中的 `i` 未随循环递增	检查 `i` 是否为循环变量，或写成了硬编码 `Cells(1, 1)`
结果全是 #VALUE!	VBA 给单元格写入的公式引用了被锁定为绝对引用的 `$A$1`	改用 `Range.Formula` 而非 `Range.FormulaR1C1`（或写正确的 R1C1 表达式）
Offset 偏移到了空行	计算偏移量时忘了 `Range` 对象本身就是起始位置，第二次执行会再偏移一次	每次偏移前重设起点，或直接用 `Cells(新行, 新列)` 计算地址

常见问题