Excel 无法将公式添加到单元格中

公式未添加到电子表格中

我环顾四周，尝试了许多对其他人有效的解决方案，但我眼前的窗口仍然在说错误

同样的问题在一个更简单的公式上

Range("D3:D" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = 
"=IF(A3 <> "",RIGHT(A3,4),"")"

脚本运行，但在C3或D3中什么也没有发生。我哪里做错了？ 最后，如果一个单元格有任何内容，我希望公式在C和D单元格中

---

注意：如果我将它们直接粘贴到单元格中，这两种方法都有效。

如果您想忽略双引号的功能，并将其作为文本，请在其中添加另一个双引号

这应该起作用：

Range("D3:D" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IF(A3 <> """",RIGHT(A3,4),"""")"

Range("C3:C" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IFERROR(INDEX(Print!$A$3:$A$999,MATCH(A3,Print!$B$3:$B$999,0)),"""")"

---

双引号：应该试着调试它，这是CellsRows.Count，A

Range("D3:D" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IF(A3 <> """",RIGHT(A3,4),"""")"

Range("C3:C" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IFERROR(INDEX(Print!$A$3:$A$999,MATCH(A3,Print!$B$3:$B$999,0)),"""")"