获得excel vba双引号问题

正在使用vba将访问数据从excel导出到excel，而且我希望能够接收这些行：

=COUNTIF('Sheet1'!G2:G68,"1/1") =COUNTIF('Sheet1'!G2:G68,"1/2") etc... 

我的问题是，我不能添加这些双引号的权利，我知道要打印这个符号，我应该把它两次这样的“”但仍然没有运气，得到各种错误，请你修改我的代码：=

 For r = 6 To 16 .Range("B" & r).Value = "=COUNTIF('Sheet1'!C1:C67,1/" & r - 5 & ")" Next 

谢谢

Answer 1

如果您希望将双引号embedded到正在构build的string中，则可以使用两对双引号来“转义”您尝试添加的双引号（如上所述），方法如下：

 "=COUNTIF('Sheet1'!C1:C67,""1/" & r - 5 & """)" 

…将返回：

 =COUNTIF('Sheet1'!C1:C67,"1/-5") 

要记住的一个重要的一点是，为了正确地转义您插入的双引号，您不计算将双string本身定义为两个对之一的双引号; 这就是为什么在上面的例子中最后有4对：

 """)" 

外两个定义了string本身; 内部的两个代表逃脱的双引号字符。

我总是发现这个表单有点令人困惑，而且通常会select使用chr函数插入双引号，并为双引号字符（它是34;）传入ascii值;

 "=COUNTIF('Sheet1'!C1:C67," & chr(34) & "1/" & r - 5 & chr(34) & ")" 

…将返回与第一个示例相同的结果：

 =COUNTIF('Sheet1'!C1:C67,"1/-5") 

希望这可以帮助，

NIM