vba - 将数组公式放入单元格区域

Question

我正在尝试将数组公式放入一系列单元格中(“B2:B10”)该公式应返回多个结果，具体取决于单元格 A2 中的值。当我以正常方式(ctrl、shift、enter)执行此操作时，它工作正常，但是当我尝试使用代码执行此操作时，它会在每个单元格中返回相同的结果，这是找到的第一个实例。谁能帮我得到我想要的结果？

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = Range("$A$2").Address Then

        With Range("B2:B10")
        .FormulaArray = "=INDEX(Absence!$C$2:$C$151, SMALL(IF($A$2=Absence!$A$2:$A$151, ROW(Absence!$A$2:$A$151)-ROW(Absence!$A$2)+1), ROW(Absence!1:1)))"
        .Value = .Value
        End With

     End If


End Sub

Answer 1

这样更好吗:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = Range("$A$2").Address Then


        Range("B2").FormulaArray = "=INDEX(Absence!$C$2:$C$151, SMALL(IF($A$2=Absence!$A$2:$A$151, ROW(Absence!$A$2:$A$151)-ROW(Absence!$A$2)+1), ROW(Absence!1:1)))"
        Range("B2").Copy Range("B3:B10")
        Range("B2:B10").Value = Range("B2:B10").Value


     End If


End Sub