Excel VBA公式1C1错误1004

我正在编写一个宏，它将在单元格中插入公式。

ActiveCell.FormulaR1C1=“=IFERROR（（（R[0]C[-2]*R[0]C[-3]）+（R[0]C[-5]*R[0]C[-6]）/（R[0]C[-3]*如果（R[0]C[-6]=0,1，R[0]C[-6]）”

我希望最后一项

如果（R[0]C[-6]=0,1，R[0]C[-6]），

等于1，如果条件等于0

当我运行代码时，出现了一个错误1004，应用程序定义的或对象定义的错误。 有人能帮我解决这个问题吗？

试试使用

ActiveCell.FormulaR1C1=“=IFERROR（（RC[-2]*RC[-3]）+RC[-5]*RC[-6]）/RC[-3]*如果（RC[-6]=0,1，RC[-6]），“”“）”

我发现你的公式中存在的问题是，你有六个开始方括号，只有五个结束方括号，并且在逗号后没有输入任何内容。
您也可以将

R[0]

写成表示此行的

R

。

尝试使用

ActiveCell.FormulaR1C1=“=IFERROR（（RC[-2]*RC[-3]）+RC[-5]*RC[-6]）/RC[-3]*如果（RC[-6]=0,1，RC[-6]），“”“）”

我发现你的公式中存在的问题是，你有六个开始方括号，只有五个结束方括号，并且在逗号后没有输入任何内容。

---

您也可以将

R[0]

写成表示此行的

R

。

您的括号不好。试试这个：

=IFERROR(((RC[-2]*RC[-3])+(RC[-5]*RC[-6]))/(RC[-3]*IF(RC[-6]=0,1,RC[-6])),)
'                                                                      ^^^

---

另外，删除无用的

[0]

，让生活更轻松。

你的括号不好。试试这个：

=IFERROR(((RC[-2]*RC[-3])+(RC[-5]*RC[-6]))/(RC[-3]*IF(RC[-6]=0,1,RC[-6])),)
'                                                                      ^^^

此外，还可以放下无用的

[0]

，让生活更轻松