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"")"

它在我的测试中有效。

如何使用VBA通过循环来循环DATEDIF公式？

1 个答案: