VBA 调试 - 运行-时间 1004：R1C1 公式未计算

Question

我正在尝试编写一些包含 Excel 公式的 VBA 脚本，但一直出现错误并且似乎无法在任何地方找到解决方案。

我认为可能导致问题的原因是我有一个包含 +1 的 R1C1 公式。我不能肯定地说，但它似乎有可能被解释为错误的语法。也许让它认为我指的是当前列 + 1 列。不过总拉伸。

Range("A4").Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-1]C+1>R2C15,"",R[-1]C+1)"

最终的结果应该是，如果上一行的值+1大于R2C15(O2)中的值，就会产生空白，否则上一行的值+1。但是，我一直收到 1004 错误。

有什么想法吗？

Answer 1

你的引号没有转义。

如果您是 VBA 的新手，需要一些时间来适应，但您需要使用

Range("A4").Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-1]C+1>R2C15,"""",R[-1]C+1)"

VBA Debug - Run-time 1004: R1C1 Formula Not Calculating