Excel VBA插入含双引号的单元格公式失败，求解决方案

问题根源 #

你之前的代码错误地将公式中SEARCH(",", B2)的逗号替换成了双引号转义，导致公式逻辑混乱，同时双引号的转义范围也出错。目标公式需要搜索的是逗号，不是双引号，因此这个部分无需对逗号做转义，只需处理公式里用于表示空字符串和空格的双引号。

正确写法 #

方法1：直接转义双引号 #

在VBA中，字符串内的双引号需要用两个双引号表示，把原公式中的每个"替换成""即可：

Range("A2").Formula = "=REPLACE(B2,1,SEARCH("", "", B2)+1,"""")&"" ""&LEFT(B2,SEARCH("", "", B2)-1)"

• 原公式的SEARCH(",", B2)在VBA字符串中写为SEARCH("", "", B2)（两个双引号是对原公式中包裹逗号的双引号的转义）
• 原公式的空字符串""转义为""""
• 原公式的空格" "转义为"" ""

方法2：用Chr(34)替代双引号 #

Chr(34)代表双引号字符，能避免多层双引号的混乱，可读性更强：

Dim q As String
q = Chr(34)
Range("A2").Formula = "=REPLACE(B2,1,SEARCH(" & q & "," & q & ",B2)+1," & q & q & ")&" & q & " " & q & "&LEFT(B2,SEARCH(" & q & "," & q & ",B2)-1)"

• 先定义q为双引号字符，后续用q代替公式中的双引号
• 公式里的","写成q & "," & q，空字符串""写成q & q，空格" "写成q & " " & q

验证效果 #

执行代码后，A2单元格会正确生成目标公式：
=REPLACE(B2,1,SEARCH(",",B2)+1,"")&" "&LEFT(B2,SEARCH(",",B2)-1)
实现提取逗号后内容+空格+逗号前内容的效果。

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