如何通过VBA在单元格公式中引用字符串变量指定的工作表名？

没问题，我来帮你搞定这个VBA公式的变量替换需求！你要做的就是把原代码中两处硬编码的工作表名称都替换成变量worksheetName，同时要保证字符串拼接的语法正确——因为你的工作表名称包含括号这类特殊字符，所以必须用单引号把变量包裹起来，就像原公式里对固定名称的处理一样。

正确的代码实现 #

Dim worksheetName As String
worksheetName = "13) Friends Mailer" ' 这里可以替换成你需要的目标工作表名

' 完整的公式赋值代码，两处工作表名都替换为变量
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-2],'" & worksheetName & "'!R6C1:R90C15,14,0)+VLOOKUP(RC[-2],'" & worksheetName & "'!R6C1:R90C15,15,0)"

关键细节说明 #

• 核心拼接逻辑：'" & worksheetName & "'! 完美替代了原公式里的'13) Friends Mailer'!，拆分来看：
  1. "'：固定字符串开头，用来在最终生成的公式里补上工作表名前的单引号
  2. worksheetName：你的自定义工作表名称变量
  3. '"!：固定字符串结尾，补上工作表名后的单引号和感叹号
• 如果你需要调整RC引用范围（比如你尝试的R[4]C[-9]:R[88]C[5]），直接替换掉代码里对应的R6C1:R90C15部分即可，变量引用的逻辑完全不受影响。
• 要确保worksheetName变量的值是Excel中存在的有效工作表名称，不然公式会触发引用错误。

常见错误避坑 #

• 别漏了单引号：只要工作表名称包含空格、括号、特殊字符，就必须用单引号包裹，否则Excel无法识别这个工作表引用。
• 注意双引号配对：VBA里字符串用双引号包裹，拼接时要保证每个双引号都正确配对，避免编译报错。

内容的提问来源于stack exchange，提问作者James Hague