在Excel VBA中如何将变量计算结果写入ActiveSheet指定单元格的Value属性？

在Excel VBA中，将变量计算结果写入ActiveSheet指定单元格的Value属性，直接使用赋值语句即可：

ActiveSheet.Range("A1").Value = 变量1 + 变量2

VBA执行时会先计算等号右侧表达式的值，再将结果赋给左侧单元格的Value属性。

操作步骤

1. 按Alt+F11打开VBA编辑器，插入模块。
2. 声明并赋值所需变量。
3. 使用ActiveSheet.Range("单元格引用").Value = 表达式完成写入。
4. 也可使用ActiveSheet.Cells(行号, 列号).Value = 表达式，适用于行列号为变量的场景。

判断依据

• Range接受字符串形式的单元格地址（如"M2"、"B5"）。
• Cells接受数字形式的行索引和列索引。
• .Value是Range对象的默认属性，可省略不写，但显式写出代码可读性更好。

适用条件

• 工作簿中必须存在活动工作表（ActiveSheet），否则触发运行时错误。
• 目标单元格不能处于受保护且锁定状态。
• 计算结果的数据类型需与单元格兼容。

常见误区

• 混淆Range与Cells参数：Range内必须是合法地址字符串，不能直接传行列数字；Cells则必须传数字。
• 忽略ActiveSheet的不确定性：ActiveSheet指向当前激活的工作表，若宏运行期间用户切换了工作表，数据可能写入错误位置。建议明确指定工作表对象，如ThisWorkbook.Worksheets("Sheet1").Range(...)。
• 误用等号方向：VBA赋值始终是将右侧计算结果写入左侧对象，方向不可颠倒。