Excel自动填充问题

我遇到了VBA脚本的问题。 该函数用一些公式填充表单。 它在大多数情况下工作正常，但是当我在一个更大的数据集上运行它时，它崩溃了：

运行时错误“1004”：Range类的自动填充方法失败

debugging器指向最后的自动填充调用。 当我查看表单时，看起来自动填充调用大概3/4的方式工作，但停止。

With Sheets("OPENS") ' Fill OPENS formulas .Range("B" & firstRowOPENS - 3) = "=DATE(YEAR($B$1), MONTH($B$1)+2, DAY($B$1))" .Range("B" & firstRowOPENS - 3).NumberFormat = "[$-409]mmm-yy;@" .Range("C" & firstRowOPENS - 3) = "=C1+2" .Range("B" & firstRowOPENS - 1) = "=SUBTOTAL(109,B" & firstRowOPENS & ":B" & lastRowOPENS & ")" .Range("B" & firstRowOPENS - 1).AutoFill .Range("B" & firstRowOPENS - 1 & ":" & lastColOPENS & firstRowOPENS - 1), xlFillValues .Range("B" & firstRowOPENS) = "=SUM(C" & firstRowOPENS & ":" & lastColOPENS & firstRowOPENS & ")" .Range("C" & firstRowOPENS).FormulaArray = "=SUM( ('Combined Input'!R2C2:R" & lastRowCI & "C2=RC1) * ('Combined Input'!R2C45:R" & lastRowCI & "C45=R2C) * ('Combined Input'!R2C43:R" & lastRowCI & "C43 = R1C4) * INDEX('Combined Input'!R2C5:R" & lastRowCI & "C40, 0,R" & firstRowOPENS - 3 & "C3,1)) * R[-" & (lastRowOPENS - firstRowOPENS + 5) * 2 & "]C" & OPENS_PROB_COL .Range("C" & firstRowOPENS).AutoFill .Range("C" & firstRowOPENS & ":" & lastColOPENS & firstRowOPENS), xlFillValues If lastRowOPENS > firstRowOPENS Then .Range("B" & firstRowOPENS & ":" & lastColOPENS & firstRowOPENS).AutoFill .Range("B" & firstRowOPENS & ":" & lastColOPENS & lastRowOPENS), xlFillValues End If setBorders .Range("A" & firstRowOPENS - 2 & ":" & lastColOPENS & lastRowOPENS) End With 

有什么build议么？

编辑：

我发现这个问题： http : //support.microsoft.com/kb/166342

“在Excel 2003和早期版本的Excel中，单个工作表最多可包含65,472个引用另一个工作表的数组公式，如果要使用更多的公式，请将数据拆分为多个工作表，以便less于65,472个引用到一个单一的工作表“。

Answer 1

http://support.microsoft.com/kb/166342

“在Excel 2003和早期版本的Excel中，单个工作表最多可包含65,472个引用另一个工作表的数组公式，如果要使用更多的公式，请将数据拆分为多个工作表，以便less于65,472个引用到一个单一的工作表“。