VBA网络日没有更新formulea

Question

我有一个宏计算两天之间的天数。在单独的工作表中，用户可以输入要从计算中排除的日期。

但是，根据用户排除特定日期的请求，宏未更新计算。请参阅下面的代码。

  

Sub Numberof_Days（）

     

Dim LastRow As Long

LastRow = ActiveSheet.Range("G" & Rows.Count).End(xlUp).row
Range("S11").Select
Do Until ActiveCell.row = LastRow + 1
    If IsEmpty(ActiveCell) Then
ActiveCell.FormulaR1C1 = _
    "=NETWORKDAYS(RC[-14],RC[-12],'Non-Valuation Days'!R[-7]C[-18]:R[57]C[-18])"
    End If
    ActiveCell.Offset(1, 0).Select
Loop End Sub

Answer 1

应为"=NETWORKDAYS(RC[-14],RC[-12],'Non-Valuation Days'!R4C1:R49C1)"