![查找列中的最近日期](https://linux22.com/image/1556131/%E6%9F%A5%E6%89%BE%E5%88%97%E4%B8%AD%E7%9A%84%E6%9C%80%E8%BF%91%E6%97%A5%E6%9C%9F.png)
我需要一些有关以下代码的帮助。我想做的是激活“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 链接应该能给你你想要的答案。