FormulaArray 突击队不适用于 VBA 执行代码

Question

基本上我在 Excel 中设置了一个公式，然后我将其复制到 VBA 中，但是这是一个数组公式：

{=SUM(--(FREQUENCY(IF(('BD MXN'!$J$2:$J$5893="A")*('BD MXN'!$X$2:$X$5893='Acum MXN'!Q2)*('BD MXN'!$Q$2:$Q$5893='Acum MXN'!O2)*('BD MXN'!$I$2:$I$5893="REAL")*('BD MXN'!$W$2:$W$5893='Acum MXN'!P2)*('BD MXN'!$O$2:$O$5893='Acum MXN'!A2),'BD MXN'!$A$2:$A$5893),'BD MXN'!$A$2:$A$5893)>0))}_

它的作用是考虑各种标准来计算另一张表中的唯一值。如果我自己做这个公式很有效，但是一旦我将它添加到代码中它就不起作用了。我的代码如下：

Range("R2:R" & last).FormulaArray = "=SUM(--(FREQUENCY(IF(('BD MXN'!$J$2:$J$" 
& Final & "=""A"")*('BD MXN'!$X$2:$X$" & Final & "='Acum MXN'!Q2)*('BD 
MXN'!$Q$2:$Q$" & Final & "='Acum MXN'!O2)*('BD MXN'!$I$2:$I$" & Final & 
"=""REAL"")*('BD MXN'!$W$2:$W$" & Final & "='Acum MXN'!P2)*('BD MXN'!$O$2:$O$" & 
Final & "='Acum MXN'!A2),'BD MXN'!$A$2:$A$" & Final & "),'BD MXN'!$A$2:$A$" & 
Final & ")>0))"

Final 变量只是最后一行的值。我知道公式有效，因为如果我执行相同的代码但使用“Formula”而不是“FormulaArray”，它将在 Excel 上引发 #VALUE 错误，然后我返回单元格并按 CTRL + SHIFT + ENTER 并且它可以工作，我对公式什么都不做。

如果我离开 FormulaArray 选项，它甚至不会写任何东西，就像跳过那一行。

Answer 1

Range.FormulaArray 属性的字符数限制为 255。您的字符串长度为 362 个字符，因此出现错误。要解决字符限制，您必须使用稍后将填充正确字符串的占位符，如下所示：

Dim pp As String, Final As Long, last As Long

pp = "--(FREQUENCY(IF(('BD MXN'!$J$2:$J$" 
& Final & "=""A"")*('BD MXN'!$X$2:$X$" & Final & "='Acum MXN'!Q2)*('BD 
MXN'!$Q$2:$Q$" & Final & "='Acum MXN'!O2)*('BD MXN'!$I$2:$I$" & Final & 
"=""REAL"")*('BD MXN'!$W$2:$W$" & Final & "='Acum MXN'!P2)*('BD MXN'!$O$2:$O$" & 
Final & "='Acum MXN'!A2),'BD MXN'!$A$2:$A$" & Final & "),'BD MXN'!$A$2:$A$" & 
Final & ")>0)"

With Range("R2:R" & last)
    .FormulaArray = "=SUM(PPP)"
    .Replace "PPP", pp
End With