应用程序定义或对象定义错误 excel

我想在VBA中使用给EXLCE单元格的值添加表达式。想添加的表达式是：=IF(ISNUMBER(FIND("夹层",$D2)),"单据备注","") 但是用了好多种方法都不行，求解答。其他方法也行

这是错误语句： Sheet1.Range("O" & i).Value = "=IF(ISNUMBER(FIND(""""夹层""""," $D " & i),""""单据备注"""","""""""")"

Sheet1.Range("O" & i).FormulaR1C1 = "=IF(ISNUMBER(FIND(""夹层"",RC4)),""单据备注"","""")"
这是你要的结果。
不过VBA之所以方便是因为它脱离了函数的束缚，一般不会再用这样的表达式去实现目的，完全可以用like语句来实现你的效果
如：If Sheet1.Range("D" & i) like "*" & "夹层" & "*" Then
Sheet1.Range("O" & i).Value="单据备注"
End If

可以如下方式解决： 1、当按f5键，就报：运行时错误1004。可以这样操作，单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对vba工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。 2、再在搜索引擎查询，才知道运行时错误1004不只是在上面这种情况才会有提示。比如通过使用 visual basic 对应用程序的宏创建一个数组公式时您也可能会收到运行时错误1004提示提示信息。造成excel vba输入公式出现运行时错误1004的原因：当试图将传递一个包含超过 255 个字符的公式时，会发生此问题，并为应用程序中 visual basic 中使用 formulaarray 属性。