="Maurice "&"""TheRocker"""&" Richard"

我为此使用了一个函数(如果工作簿已经有VBA)。

Function Quote(inputText As String) As String
  Quote = Chr(34) & inputText & Chr(34)
End Function

这是来自Sue Mosher的书《Microsoft Outlook Programming》。那么公式是:

=“莫里斯”&quote（“火箭”）&“理查德”

这和Dave DuPlantis发布的类似。

使用装备(34) 代码:

    Joe = "Hi there, " & Chr(34) & "Joe" & Chr(34)
    ActiveCell.Value = Joe

结果:

    Hi there, "joe"

你试过用额外的双引号转义吗?通过转义字符，您是在告诉Excel将“字符视为文字文本”。

= "Maurice ""The Rocket"" Richard"

返回一个空的或零长度的字符串(例如:"")使单元格显示为空白是工作表公式中的常见做法，但在通过Range插入公式时重新创建该选项。公式或范围。VBA中的FormulaR1C1属性非常笨拙，因为必须在带引号的字符串中使用双引号字符。

工作表的本机TEXT函数可以在不使用引号的情况下产生相同的结果。

'formula to insert into C1 - =IF(A1<>"", B1, "")
range("C1").formula = "=IF(A1<>"""", B1, """")"         '<~quote chars doubled up
range("C1").formula = "=IF(A1<>TEXT(,), B1, TEXT(,))"   '<~with TEXT(,) instead

在我看来，使用TEXT(，)代替""甚至可以清除上面这样一个简单的公式。当在更复杂的公式中使用时，例如将空字符串附加到VLOOKUP以避免在查找结果为空白时向单元格返回零或在与IFERROR不匹配时返回空字符串，这些好处就变得越来越显著。

'formula to insert into D1 - =IFERROR(VLOOKUP(A1, B:C, 2, FALSE)&"", "")
range("D1").formula = "=IFERROR(VLOOKUP(A1, B:C, 2, FALSE)&"""", """")"
range("D1").formula = "=IFERROR(VLOOKUP(A1, B:C, 2, FALSE)&TEXT(,), TEXT(,))"

使用TEXT(，)取代旧的传递空字符串的""方法，您可能不再使用算盘来确定公式字符串中是否有正确的引号字符数量。

如果你需要使用JSON:

=CONCATENATE("'{""service"": { ""field"": "&A2&"}}'")