配列式をVBA経由でExcelに挿入するには？

Question

以前は、テーブル内の列全体について、インデックス&の一致式を1つのシートから別のシートに実行するExcel VBAコードがあります。コード例以下のように：

With Me.Range("table1[Description]") 
    .Formula = "=IFerror(INDEX(table2,MATCH(B4,table2[Asset No],0),2),"""")" 
    .Value = .Value 
End With 

今、私は私が式をコピーしてシート状に配列機能を追加し、他の変更と一緒に配列して、古い数式を交換したいと思います。

Sub refresh() 

With Me.Range("table1[Last Service Date]") 
    .FormulaArray = "=LARGE(IF(table2[[#All],[Asset No]]=[@[Asset No]],table2[[#All],[Entry Date]]),2)" 
    .Value = .Value 
End With 

End Sub 

しかし、私はコードをテストしようとすると、私はエラーメッセージ私は配列数式のために私のコードに変更する必要がある400 何かを得ておきますか？

Answer 1

コードでMeを使用するポイントは何ですか？シートモジュールにそのコードを配置しましたか？このコードをModule1のような標準モジュールに移動し、Meキーワードを適切なシート参照に置き換えることをお勧めします。それ以外の場合は、そのコードをシートモジュールに配置することをお勧めします。

また、配列式を目的の列のテーブルの最初のセルに配置し、データがExcelテーブルとしてフォーマットされるため、列全体が自動的に数式で埋められます。そうでない場合、オートフィルプロパティを使用して数式を行の下に塗りつぶすことができます。

これで問題が解決するかどうかを確認してください。 答えは、VBAを使用して配置しようとしている数式がシートに手動で配置されているとうまくいくと仮定しています。

With Me.Range("table1[Last Service Date]").Cells(1) 
    .FormulaArray = "=LARGE(IF(table2[[#All],[Asset No]]=[@[Asset No]],table2[[#All],[Entry Date]]),2)" 
    .Value = .Value 
End With