使用替换方法在Excel VBA中输入长数组公式的一种解决方法

Question

我试图通过VBA输入数组公式时避免255个字符的限制。 我在网上查看，发现了一种很有前途的解决方案，可以将阵列分成几部分，然后再次组合。

但是，我的.replace函数没有替换任何东西。

我非常小心地确保在.replace的每个阶段中，得出的公式都是合理的。

这是我到目前为止的内容：

Sub ArrayMacro()

Dim theFormulaPart1 As String
Dim theFormulaPart2 As String
Dim theFormulaPart3 As String


theFormulaPart1 = "=IF(SUM(IF(COUNTIFS(Ratting!A:A,'Site Matrix'!$B$1:$FA$1,Ratting!K:K,'Site Matrix'!A2)>=1,1,0))=1,1,1)"

theFormulaPart2 = "SUMIF(Ticks!E:E,'Site Matrix'!A2,Ticks!C:C)/IF(COUNTIFS(Ratting!N:N,TRUE,Ratting!K:K,'Site Matrix'!A2)>0,"",1))"

theFormulaPart3 = "COUNTIFS(Ratting!A:A,IF(COUNTIFS(Ratting!N:N,TRUE,Ratting!K:K,'Site Matrix'!A2)>0,"",INDEX(Ratting!A:A,MATCH('Site Matrix'!A2,Ratting!K:K,0))),Ratting!K:K,'Site Matrix'!A2)"


With Sheets("Site Matrix").Range("FB2")
    .FormulaArray = theFormulaPart1
    .Replace "1,1)", theFormulaPart2, xlPart
    .Replace "1))", theFormulaPart3, xlPart

End With

End Sub

每次运行宏时，单元格中的公式均保持不变。 单步执行代码不会对错误发生任何错误或提示。 只是，什么都没有发生。

Answer 1

两个替换字符串的定义都不正确。 您应该在字符串常量中使用"""""代替"" 。

在theFormulaPart3末尾缺少第二个问题)) 。

theFormulaPart2 = "SUMIF(Ticks!E:E,'Site Matrix'!A2,Ticks!C:C)/IF(COUNTIFS(Ratting!N:N,TRUE,Ratting!K:K,'Site Matrix'!A2)>0,"""",1))"  
theFormulaPart3 = "COUNTIFS(Ratting!A:A,IF(COUNTIFS(Ratting!N:N,TRUE,Ratting!K:K,'Site Matrix'!A2)>0,"""",INDEX(Ratting!A:A,MATCH('Site Matrix'!A2,Ratting!K:K,0))),Ratting!K:K,'Site Matrix'!A2)))"