[英]How to loop a DATEDIF formula through a loop using VBA?
我试图使用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
如果在公式中使用RC表示法,则需要使用FormulaR1C1
,而不仅是Formula
。
同样, d
必须用双引号引起,而不是单引号。 如果您需要在VBA字符串中输入双引号,则需要将它们加倍。 因此,有问题的行应与此更改一起使用:
.Range(.Range("L2"), .Range("L" & lastRow)).FormulaR1C1 = _
"=DATEDIF(RC[-5],TODAY(),""d"")"
它在我的测试中有效。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.