通过尝试复制一个公式获取运行时错误“1004”

我尝试使用VBA将公式复制到电子表格。 我使用了一些公式，但是我对此感到厌烦。 什么可能是一个问题？ 谢谢。

这是代码

Sub Raznos() Workbooks("Realization").Worksheets(2).Activate Range("N2").Formula ="=IF(IF(AND(A1<>A2,M2<>0),K2-L2,"")>0,IF(AND(A1<>A2,M2<>0),K2-L2,""),"")" End Sub 

Answer 1

这里有一个小UDF，你可以用它来处理string中的引号：

 Function QuoteEscape(ByVal rawText As String) As String QuoteEscape = Replace$(rawText, """", """""") End Function 

那么你可以这样使用它：

 Range("N2").Formula = QuoteEscape("=IF(IF(AND(A1<>A2,M2<>0),K2-L2,"")>0,IF(AND(A1<>A2,M2<>0),K2-L2,""),"")")