如何用VBA获取Excel L列最大日期首次出现的行号？

错误原因分析 #

1. 变量类型不匹配：原代码中MaxVal定义为Long类型，但日期的序列号是带小数的（若包含时间部分），用Long会截断小数，导致Find找不到匹配项，最终MaxCell为Nothing，触发“对象变量未设置”错误。
2. 未处理查找失败的情况：如果目标范围无有效数据，或者MaxVal匹配不到内容，MaxCell会是空对象，直接访问.Row属性必然报错。
3. 查找参数不完整：默认的Find参数可能导致非预期的部分匹配，无法保证找到首次出现的目标值。

修正后的代码 #

Sub FindMaxDateRow()
    Dim Rng As Range
    Dim MaxCell As Range
    Dim MaxVal As Date ' 改为Date类型，适配带时间的日期
    
    ' 明确指定目标工作表，避免依赖活动表
    Set Rng = ThisWorkbook.Worksheets("Sheet1").Range("L1:L500")
    
    ' 提前处理空范围的情况
    If WorksheetFunction.Count(Rng) = 0 Then
        MsgBox "L1:L500中没有有效日期数据"
        Exit Sub
    End If
    
    MaxVal = WorksheetFunction.Max(Rng)
    
    ' 完善Find参数，确保精确匹配并从开头查找首次出现
    Set MaxCell = Rng.Find(What:=MaxVal, _
                          LookIn:=xlValues, _
                          LookAt:=xlWhole, _
                          SearchOrder:=xlByRows, _
                          SearchDirection:=xlNext, _
                          MatchCase:=False)
    
    ' 检查是否找到匹配项
    If Not MaxCell Is Nothing Then
        MsgBox "最大日期首次出现的行号是: " & MaxCell.Row
    Else
        MsgBox "未找到匹配的最大日期"
    End If
End Sub

关键修改说明 #

• 把MaxVal类型改为Date，完整保留日期（含时间）的精度，避免匹配失败。
• 明确指定工作表（如Sheet1），防止代码因活动表切换而出错。
• 增加空范围判断，提前提示无有效数据的情况。
• 补充Find的核心参数：LookAt:=xlWhole确保精确匹配单元格全部内容，SearchDirection:=xlNext从范围起始位置开始查找首次出现的目标。
• 增加MaxCell非空判断，避免访问空对象的属性。

内容的提问来源于stack exchange，提问作者slc1axj