VBA运行时错误＆＃39; 1004＆＃39;尝试插入公式时

Question

我已经想出如何将公式插入到一系列单元格中并设法使其工作一次。不幸的是，我不能使用这个公式。相反，我得到了

  

应用程序定义或对象定义的错误。

这是我试图跑的地方。

Sheets("P&L").Select
Range("A1:A250").Select
Selection.FormulaR1C1 = "=IF(ISNUMBER(LEFT(RC[+1],4)*1),LEFT(RC[+1]4,4)*1,)"
Selection.Columns.AutoFit

我怀疑它与*充当通配符有关。我把它放在块引号中，但这只会产生另一个错误。

感谢任何帮助。

Answer 1

您在该公式中获得了额外的 4 。

Selection.FormulaR1C1 = "=IF(ISNUMBER(LEFT(RC[+1],4)*1),LEFT(RC[+1],4)*1, text(,))"