excel - 如何在vba中的字符串中添加双引号？

Question

我想通过vba在单元格中插入包含双引号的if语句。

这是我的代码:

Worksheets("Sheet1").Range("A1").Value = "=IF(Sheet1!B1=0,"",Sheet1!B1)"

由于双引号，我在插入字符串时遇到问题。如何处理双引号？

Answer 1

我发现最简单的方法是加倍引用来处理引用。

Worksheets("Sheet1").Range("A1").Formula = "IF(Sheet1!A1=0,"""",Sheet1!A1)" 

有些人喜欢使用 CHR(34)*:

Worksheets("Sheet1").Range("A1").Formula = "IF(Sheet1!A1=0," & CHR(34) & CHR(34) & ",Sheet1!A1)" 

*注意:CHAR() 用作 Excel 单元格公式，例如在单元格中写入“=CHAR(34)”，但对于 VBA 代码，您可以使用 CHR() 函数。