使用VBA查找最大日期

Question

我有一个列具有不同记录的日期值，我需要获取具有最大值的日期。一个或多个记录可以具有相同的日期。我该如何处理？不了解在哪里开始代码：

for i = 3 to last_lin
max_dat = ws.Range("C" & i).Value
Next

last_line是记录的最后一行，需要验证数据。我已将值放在此变量中＆＃34; max_dat＆＃34;。现在接下来该做什么？请告诉我。

Answer 1

以示例为例，将范围创建为变量，并在范围内执行Application.WorksheetFunction.Max

Option Explicit

Sub test()

Dim max_dat As Date
Dim last_lin As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet3")

last_lin = 5
max_dat = Application.WorksheetFunction.Max(ws.Range("C3:C" & last_lin))

Debug.Print max_dat

End Sub

表格中的数据