vba使用vba插入数组公式？

Question

我正在尝试将数组公式插入到excel中的单元格中，但得到一个错误，“无法为range类设置公式数组”。

有人能告诉我我哪里做错了吗？谢谢。

intRow4 As Integer, _

intRow4 = excWks4.UsedRange.Rows.Count + 1

lastcell = excWks4.Cells(intRow4, 4).Address

theform = "=IF(ISERROR(INDEX('Look Up Supplier Sheet'!$A$1:$G$10004,SMALL(IF(LEFT('Look Up Supplier Sheet'!$B$1:$B$10004,5)=LEFT(" & lastcell & ",5),ROW($B$1:$B$10004)),ROW(1:1)),6)),"""",INDEX('Look Up Supplier Sheet'!$A$1:$G$10004,SMALL(IF(LEFT('Look Up Supplier Sheet'!$B$1:$B$10004,5)=LEFT(" & lastcell & ",5),ROW($B$1:$B$10004)),ROW(1:1)),6))"

excWks4.Cells(intRow4, 5).FormulaArray = theform

Answer 1

来自MSDN -

如果使用此属性输入数组公式，则公式必须使用R1C1引用样式，而不是A1引用样式

所以你需要用$R1$C1替换$A$1，等等。

Answer 2

FormulaArray有一个255 character limit。您的长度至少为309个字符，具体取决于lastcell的长度。

您可以通过缩短工作表名称使其少于256个字符。