Question

我尝试使用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：

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,""),"")")

通过尝试复制公式获得运行时错误'1004'

1 个答案: