如何在ActiveCell.Formula公式中使用引号实现动态工作表引用

你遇到的问题核心是VBA字符串拼接时的引号转义和变量引用方式错误，咱们一步步拆解解决：

错误原因分析 #

你的第一版代码：

Application.Range(strNewCell2).Activate 
ActiveCell.Formula = "=SUM(INDIRECT(inputVal& "!H2:H402"))"

这里的"!H2:H402"会直接闭合前面的字符串，导致VBA认为语句提前结束，触发语法错误。

第二版你尝试了双引号转义，但还是没处理对变量引用——VBA不会把字符串里的inputVal当成变量解析，必须把变量从字符串里抽出来，和转义后的字符串部分拼接。

正确写法 #

方法1：修正INDIRECT的字符串拼接

把变量inputVal放在字符串外部，同时对公式里的双引号做正确转义（VBA中用两个双引号表示一个双引号）：

' 去掉Activate，直接给Range赋值更高效
Range(strNewCell2).Formula = "=SUM(INDIRECT(""" & inputVal & """&""!H2:H402""))"

解释一下拼接逻辑：

• """ 生成公式里的一个双引号（VBA里三个双引号：前两个转义出一个，第三个闭合字符串段）
• & inputVal & 把变量值插入到字符串中间
• ""!H2:H402"" 生成!H2:H402这部分，前后的双引号同样是转义后的结果

方法2：跳过INDIRECT，直接动态引用（更高效）

如果你的工作表名称没有空格、特殊字符（比如!、@等），完全可以不用INDIRECT，直接拼接工作表名称到公式里：

Range(strNewCell2).Formula = "=SUM('" & inputVal & "'!H2:H402)"

这里的单引号是为了兼容可能的工作表名（如果有空格的话也能正常工作），即使没有空格加上也不会出错，更稳妥。

额外优化：避免使用Activate #

你原来的Application.Range(strNewCell2).Activate完全没必要，直接给Range的Formula属性赋值是更高效、更可靠的写法，减少因工作表切换导致的意外问题。

内容的提问来源于stack exchange，提问作者K.EL