VBA中如何在VLOOKUP公式内用双引号包裹apple？

要让公式里的apple被双引号包裹，核心是在VBA字符串中用两个连续双引号代表一个实际的双引号，或者用Chr(34)（双引号的ASCII码）来替代，以下是两种可行写法：

写法一：直接用双引号转义 #

Sub test()
    Range("A1").Value = "=VLOOKUP(""apple"",B4:C8,2,0)"
End Sub

这里的""apple""在VBA解析后，会向Excel公式输出"apple"。

写法二：用Chr(34)拼接 #

Sub test()
    Range("A1").Value = "=VLOOKUP(" & Chr(34) & "apple" & Chr(34) & ",B4:C8,2,0)"
End Sub

Chr(34)会直接生成一个双引号字符，拼接后同样能得到带双引号的公式。

为什么之前的方法没用？ #

• 你尝试的波浪号是Excel公式内部的转义符，不是VBA字符串的转义规则，所以在VBA里用波浪号无效。
• 第一种写法直接写apple，Excel会把它当作单元格名称而非文本；第二种写法只加了一层双引号，在VBA里这只是字符串的起止标记，不会被输出到公式里。

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