使用装备(34) 代码:

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

结果:

    Hi there, "joe"

VBA函数

1) .formula = “=”“THEFORMULAFUNCTION ”“&（CHAR（34） & ”STUFF“” & CHAR（34））”

2) .公式= "公式函数""东西""" "

第一种方法使用vba在单元格中编写公式，从而得到计算值:

 THEFORMULAFUNCTION "STUFF"

第二种方法使用vba在单元格中写入字符串，其结果为:

 THEFORMULAFUNCTION "STUFF"

Excel结果/公式

1) =" theformulfunction "&(char (34) & " stuff "& char (34))

2)公式功能“东西”

使用装备(34) 代码:

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

结果:

    Hi there, "joe"

以下公式适用于Excel和Numbers (MAC):

= "Maurice " & """" & "The Rocket" & """" & " Richard"

使用& """" &来获得围绕字符串的双引号。

你试过用额外的双引号转义吗?通过转义字符，您是在告诉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(，)取代旧的传递空字符串的""方法，您可能不再使用算盘来确定公式字符串中是否有正确的引号字符数量。