如何向ActiveCell添加含字符串与范围变量的公式？

我懂你要实现的效果——就是让ActiveCell的公式和手动输入="Some string"&$a$1完全一致，把自定义字符串和指定单元格的值拼接起来。你当前的代码ActiveCell.Formula = "=" & x & y没达到预期，核心问题是字符串变量在Excel公式里没被正确用双引号包裹，而且公式里的文本连接符也没处理到位。

关键问题解析 #

Excel公式里的字符串必须用双引号括起来，但在VBA中，要在字符串里输出一个实际的双引号，得用两个连续的双引号来转义。你之前的写法直接把x的内容拼进去，相当于公式里没有引号，Excel会把它当成无效名称，自然出问题。

正确的代码写法 #

先看完整的可运行示例：

Sub SetActiveCellCombinedFormula()
    Dim x As String
    Dim targetCell As Range
    Set targetCell = Range("A1") ' 替换成你实际要引用的单元格对象
    Dim y As String
    
    ' 定义你的字符串变量
    x = "This is my string variable"
    ' 获取目标单元格的地址（默认是绝对地址$A$1）
    y = targetCell.Address
    
    ' 拼接公式并赋值给ActiveCell
    ActiveCell.Formula = "=""" & x & """&" & y
End Sub

代码拆解说明 #

• """ & x & """：这部分在VBA里会生成带双引号的字符串，比如x的值是"This is my string variable"，拼出来就是"This is my string variable"，完美符合Excel公式对字符串的格式要求。
• &：这是Excel公式里的文本连接符，所以要在VBA里明确拼上这个符号，把字符串和单元格地址连接起来。
• 最终生成的公式就是你想要的：="This is my string variable"&$A$1

额外调整选项 #

• 如果需要使用相对地址（比如A1而不是$A$1），可以修改获取地址的代码：

  y = targetCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
  

• 如果你的字符串本身包含双引号（比如x是He said "Hello"），在VBA定义x时要转义：

  x = "He said ""Hello"""
  

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