Excel VBA: невозможно заполнить переменную даты в VBA

Question

Моя цель - найти самую последнюю дату в column A (дата в column A определяется по формуле) и заполнить одну строку от самой последней даты в column A до column T.

Я могу найти самую последнюю дату в column A, используя

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

но когда я пытаюсь определить его в определенном диапазоне, у меня ничего не получается.

Ниже приведено общее количество ошибочного кода:

Sub Find_Date()

Dim Max_date As Date

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

Worksheets("Sheet1").Range("A" & Max_date).End(xlDown).FillDown

End Sub

Answer 1

Max_date дает вам фактическое значение даты, а не значение строки, поэтому оно не работает. Вам нужно найти способ получить номер строки (я использую функцию соответствия листа ниже). и так как вы уже получили значение даты, вы можете просто использовать это значение для заполнения столбца A до T

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

Max_Row = Application.WorksheetFunction.Match(Max_date, Columns("A"), 0)

Worksheets("Sheet1").Range("A" & Max_Row & ":T" & Max_Row).Value = Max_date

Ограничение - не работает, если в столбце A есть несколько одинаковых максимальных значений, функция соответствия всегда действует только для первого