質問
私はVBAスクリプトの問題を抱えています。この関数は、いくつかの式のシートに記入します。私は、より大きなデータセットにそれを実行すると、それはほとんどの時間を正常に動作します、しかし...それはでクラッシュします:
ファイル名を指定して実行時エラー '1004':Rangeクラスの自動入力メソッドが失敗した。
最後のオートフィルコールにデバッガポイント。私はシートを見ると、それはオートフィルコールはおよそ道の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
任意の提案ですか?
編集ます:
私は問題を発見: http://support.microsoft.com/kb/166342
「Excel 2003およびそれ以前のバージョンでは、単一のワークシートが別のワークシートを参照してください65472の配列数式の最大を含めることができます。あなたがより多くの数式を使用したい場合は少ないが存在するように、複数のワークシートにデータを分割単一のワークシートへの言及65472より。「
解決
http://support.microsoft.com/kb/166342する
「Excel 2003およびそれ以前のバージョンでは、単一のワークシートが別のワークシートを参照してください65472の配列数式の最大を含めることができます。あなたがより多くの数式を使用したい場合は少ないが存在するように、複数のワークシートにデータを分割単一のワークシートへの言及65472より。「
所属していません StackOverflow