☰

查找列中的最近日期

tag-icon • tag-icon microsoft-excel vba macros
查找列中的最近日期

我需要一些有关以下代码的帮助。我想做的是激活“A”列中日期最新的单元格。当我尝试激活该单元格时，它一直激活单元格“OIY3”，并且这些列中没有任何值。

sub test

Max_date = Application.WorksheetFunction.Max(Columns("A"))

MsgBox CDate(Max_date)

Cells(Max_date).Activate

End sub

答案1

这是一个典型的方法：

Sub test()
    Dim r As Range
    Max_date = Application.WorksheetFunction.Max(Columns("A"))
    MsgBox CDate(Max_date)
    Set r = Range("A:A").Find(What:=CDate(Max_date), After:=Range("A1"))
    r.Activate
End Sub

答案2

您已设置Max_date为值，而不是单元格地址。因此 Excel 尝试将日期解释为单元格地址。

此 SO 链接应该能给你你想要的答案。

相关内容