运行时错误'438'对象不支持此属性或方法错误

Question

我希望循环显示一个包含两个日期值的电子表格，以确定两个日期之间的月数。我的activecell是＆＃34; J2＆＃34;并且比较值在＆＃34; B2＆＃34;和＆＃34; C2＆＃34;分别。我试图使用DateDiff函数返回两个日期值之间的月数 我正在对代码运行测试并遇到以下错误消息：

  

＆＃34;运行时错误＆＃39;＆＃39;对象不支持此属性或方法＆＃34;

我在列出的最后一行代码中收到错误消息，并且不明白为什么我在activecell.offset上收到错误。我搜索了类似的问题，但无法找到我的问题的答案。您将提供的任何帮助将不胜感激。感谢。

Sub tstdate()

Dim IDate As Date    ' Declare variables.
Dim HDate As Date    ' Declare variables.
Dim cnt As Integer   ' Declare variables.


    Range("j2").Select
    Do Until cnt = 7
'
    IDate = ActiveCell.OffsetActiveCell.Offset(0, -7)

Answer 1

您的代码重复ActiveCell.Offset。需要删除这种重复。