ランタイムエラー1004コピーフォーミュラアレイ

Question

私はExcelのスプレッドシートのセルB2に次の配列数式を持っている：

{=IF(COUNT(IF(ISNUMBER(A30:A1000);IF(B30:B1000>A30:A1000-1;A30:A1000)))>=COUNT(IF(ISNUMBER(A30:A1000);COUNT(B30:B1000>A30:A1000-1;A30:A1000)));COUNT(IF(ISNUMBER(A30:A1000);COUNT(B30:B1000>A30:A1000-1;A30:A1000))))} 

今私は、セルA2にこのコードをコピーするには、次のVBAコードを使用する：

私はこのコードを使用する場合

Sheets("Sheet1").Range("A2").FormulaArray = Sheets("Sheet1").Range("B2").Formula 

しかし、私はあなたがどのようにこの問題を解決するための任意のアイデアを持っていますランタイムエラー1004

取得しますか？

Answer 1

あなたの配列の式は長すぎてRange.FormulaArray propertyのように渡せません。

すべての条件を繰り返し続ける必要はありません。行30〜1000を循環するとき、第1または第2の条件が失敗した場合、そのサイクルの残りの数式は処理されません。数式内のIFは、最初のFALSEで処理を停止します。

=IF(COUNT(IF(ISNUMBER(A30:A1000), IF(B30:B1000>A30:A1000-1, A30:A1000)))>=COUNT(B30:B1000>A30:A1000-1,A30:A1000),COUNT(B30:B1000>A30:A1000-1,A30:A1000)) 

コードはうまく動作します。

With Worksheets("Sheet3") 
    .Range("A2").FormulaArray = .Range("b2").Formula 
End With 

セミコロンをシステムリストの区切り文字として使用してテストできないことに注意してください。私自身のシステムのカンマでのみ。 VBAは、.Formula、.FormulaR1C1または.FormulaArrayというプロパティのEN-US地域設定では何も好きではありません。それでも問題が解決しない場合は、debugを使用して、.Formulaがどのように返されているかを確認してください。セミコロンが含まれている場合は、

With Worksheets("Sheet3") 
    .Range("A2").FormulaArray = Replace(.Range("b2").Formula, Chr(59), Chr(44)) 
End With