Найти самую последнюю дату в столбце

Question

Мне нужна помощь с кодом ниже. Я пытаюсь активировать ячейку с самой последней датой в столбце "А". Когда я пытаюсь активировать ячейку, она продолжает активировать ячейку "OIY3", и в этих столбцах нет значений.

sub test

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

MsgBox CDate(Max_date)

Cells(Max_date).Activate

End sub 

Answer 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

Answer 2

Вы установили Max_date в значение, а не в адрес ячейки. Таким образом, Excel пытается интерпретировать дату как адрес ячейки.

Эта SO ссылка должна предоставить вам ответ, который вы хотите.