将其翻译为vba时出现iferror错误

Question

我正在尝试使用vba模仿iferror公式

=IFERROR(VLOOKUP(C4,E:E,1,FALSE),"Test")

当我尝试编码完全相同的事情时，错误指向“”测试“” 有没有办法不使用“”？

ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(R[-1]C[-4],C[-2],1,FALSE)," & ""Test"" & ")"

提前致谢！

Answer 1

由于我从不知道在这些情况下会有多少"，我更愿意使用ChrW(34)

这应该很容易：

    ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(R[-1]C[-4],C[-2],1,FALSE)," & _
        ChrW(34) & "Test" & ChrW(34) & ")"

如果您对ChrW或AsciiW有疑问：

MsgBox AscW("""")
MsgBox ChrW(34)