VBA代码可使用“ INDEX”数组公式自动填充值

Question

我需要一个宏，以根据多个条件在Sheet1中搜索的值填充Sheet2中的D列。该代码必须自动填充Index and Match公式中的值而不是公式。

这是到目前为止我得到的：

With ActiveSheet                                       
    With .Range("D2:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
             .FormulaArray = "=INDEX(Sheet1!C,MATCH(Sheet2!R2C1& Sheet2!R2C2& Sheet2!RC3, Sheet1!C[-3]& Sheet1!C[-2]& Sheet1!C[-1],0))"
             .Value = .Value
    End With
End With

由于某种我不知道的原因，我的代码不会自动用正确的值填充该列，而是仅在第一个单元格中复制公式中的值，以便使我的列具有重复的数字。