如何使用VBA通過循環來循環DATEDIF公式？

Question

我試圖使用VBA循環DATEDIF公式，但我不斷收到運行時錯誤'1004'：應用程序定義的錯誤或對象定義的錯誤。 我不確定為什么代碼會一直踢出去。 該公式本身有效。

Sub DateandDaysFormula()


    With ThisWorkbook.Sheets("HDT Pivot Table")
        Dim lastRow As Long
        lastRow = .Cells(.Rows.Count, "D").End(xlUp).Row

        .Range(.Range("L2"), .Range("L" & lastRow)).Formula = _
            "=DATEDIF(RC[-5],TODAY(),'d')"
        .Range(.Range("X2"), .Range("X" & lastRow)).Formula = _
            "=IFERROR(VLOOKUP(D2,DataDrop!A:C,2,FALSE),0)"
    End With

End Sub

Answer 1

如果在公式中使用RC表示法，則需要使用FormulaR1C1 ，而不僅是Formula 。

同樣， d必須用雙引號引起，而不是單引號。 如果您需要在VBA字符串中輸入雙引號，則需要將它們加倍。 因此，有問題的行應與此更改一起使用：

.Range(.Range("L2"), .Range("L" & lastRow)).FormulaR1C1 = _
            "=DATEDIF(RC[-5],TODAY(),""d"")"

它在我的測試中有效。