将数组公式保存在宏中使用无法正确填写，请大神指导修改

gzclc

将数组公式保存在宏中使用无法正确填写（详见附件J列，D列为公式计算正确结果），请教问题出在那里？请大神指导修改。
数组公式为：IF(H5="","",IFERROR(INDEX(时间!$A:$A,SMALL(IF((时间!$B$2:$B$456="班")*(时间!$A$2:$A$456>H5),ROW($2:$456)),$J$2)),H5))

代码为：
Sub 写入()
Application.Calculation = xlCalculationManual       '手动重算
With Sheet5
a = .Range("h65536").End(xlUp).Row
    If a > 1 Then
        .Range("J5:J" & a).FormulaArray = "=IF(RC[-2]="""","""",IFERROR(INDEX(时间!C1,SMALL(IF((时间!R2C2:R456C2=""班"")*(时间!R2C1:R456C1>RC[-2]),ROW(R2:R456)),R2C10)),RC[-2]))"
        .Range("J5:J" & a) = .Range("J5:J" & a).Value

    End If
End With
Application.Calculation = xlCalculationAutomatic    '自动重算
End Sub

大灰狼1976

我不知道，我只会这样。

1. Sub 写入()
   
2. Application.Calculation = xlCalculationManual       '手动重算
   
3. With Sheet5
   
4. a = .Range("h65536").End(xlUp).Row
   
5.     If a > 1 Then
   
6.         .Range("J5:J" & a).Formula = "=IF(H5="""","""",IFERROR(INDEX(时间!$A:$A,SMALL(IF((时间!$B$2:$B$456=""班"")*(时间!$A$2:$A$456>H5),ROW($2:$456)),$J$2)),H5))"
   
7.         For i = 5 To a
   
8.           .Range("J" & i).FormulaArray = .Range("J" & i).Formula
   
9.         Next i
   
10.         .Range("J5:J" & a) = .Range("J5:J" & a).Value
    
11.     End If
    
12. End With
    
13. Application.Calculation = xlCalculationAutomatic    '自动重算
    
14. End Sub

复制代码