使用VBA宏查找最大日期

Question

我正在尝试建立一个宏，该宏将跨多个工作表自动对excel表中的某些值进行排序。

我希望让它查看r和s行，并比较它们的最高“日期”值，然后如果最大值小于3个月，则复制到工作表4，如果ts大于3个月，则复制到工作表7。

我让复制部分工作的不是最大日期的if函数：

Dim greatestDate As Date

If Sheets(source).Cells(lRow, "R").Value > Sheets(source).Cells(lRow, "S").Value Then
        greatestDate = Sheets(source).Cells(lRow, "R").Value
        Else
        greatestDate = Sheets(source).Cells(lRow, "S").Value
        End If

我认为问题是变量的类型，但我不确定任何帮助将不胜感激。

Answer 1

当您没有告诉我们您遇到的错误时，您应该使用DateValue函数消除所有Time属性，而仅对Date求值。

If DateValue(Sheets(source).Cells(lRow, "R").Value) > DateValue(Sheets(source).Cells(lRow, "S").Value) Then