VBA如何查找指定日期或后续日期的首次出现行？

嘿，我来帮你搞定这个问题！你的原始代码在目标日期不存在时会直接报错——因为Find找不到匹配项的话会返回Nothing，这时候再调用.Row肯定触发错误。下面给你几个实用的解决方案，从简单到高效都有：

方法一：先精确查找，找不到再找后续日期 #

这个思路最直接，先尝试精准定位目标日期，失败的话就找第一个比它大的日期：

Sub FindFirstDateOrLater()
    Dim targetDate As Date
    Dim ws As Worksheet
    Dim foundCell As Range
    
    ' 设定我们要找的目标日期
    targetDate = CDate("05.07.19")
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 第一步：尝试精确匹配目标日期
    Set foundCell = ws.Range("A:A").Find( _
        What:=targetDate, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False _
    )
    
    ' 如果精确查找失败，就找第一个大于目标日期的单元格
    If foundCell Is Nothing Then
        Set foundCell = ws.Range("A:A").Find( _
            What:=">" & targetDate, _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            MatchCase:=False _
        )
    End If
    
    ' 最后输出结果，还要考虑连后续日期都找不到的情况
    If Not foundCell Is Nothing Then
        Debug.Print "找到的行号：" & foundCell.Row
    Else
        Debug.Print "A列里既没有2019-07-05，也没有比它晚的日期哦"
    End If
End Sub

不过这里要注意：如果A列的日期是文本格式（不是真正的日期数值），Find用>的方式可能会匹配出错，这时候就需要更稳妥的方法。

方法二：遍历单元格找最小行号（兼容文本/日期格式） #

如果你的A列日期格式不统一，或者数据量不大，直接遍历所有单元格找符合条件的最小行号就很靠谱：

Sub FindFirstDateOrLater_Universal()
    Dim targetDate As Date
    Dim ws As Worksheet
    Dim cell As Range
    Dim minRow As Long
    
    targetDate = CDate("05.07.19")
    Set ws = ThisWorkbook.Sheets(1)
    minRow = ws.Rows.Count ' 先把最小行号初始化为表格最大行
    
    ' 只遍历A列里有内容的单元格，避免空循环
    For Each cell In ws.Range("A:A").SpecialCells(xlCellTypeConstants)
        ' 先判断单元格内容是不是日期
        If IsDate(cell.Value) Then
            ' 找到精确匹配直接退出循环，不用再找了
            If cell.Value = targetDate Then
                minRow = cell.Row
                Exit For
            ' 如果是比目标日期晚的，就记录最小的行号
            ElseIf cell.Value > targetDate Then
                If cell.Row < minRow Then
                    minRow = cell.Row
                End If
            End If
        End If
    Next cell
    
    ' 输出结果
    If minRow <> ws.Rows.Count Then
        Debug.Print "找到的行号：" & minRow
    Else
        Debug.Print "没找到符合条件的日期哦"
    End If
End Sub

方法三：数组加载法（大数据量首选） #

如果A列有几千几万行数据，遍历单元格会很慢，这时候把数据加载到数组里处理，速度能提升N倍：

Sub FindFirstDateOrLater_Efficient()
    Dim targetDate As Date
    Dim ws As Worksheet
    Dim dateArr As Variant
    Dim i As Long
    Dim minRow As Long
    
    targetDate = CDate("05.07.19")
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 把A列有数据的部分加载到数组里
    dateArr = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Value
    minRow = ws.Rows.Count
    
    ' 遍历数组找符合条件的行
    For i = LBound(dateArr, 1) To UBound(dateArr, 1)
        If IsDate(dateArr(i, 1)) Then
            ' 精确匹配直接退出
            If dateArr(i, 1) = targetDate Then
                minRow = i
                Exit For
            ' 记录比目标日期晚的最小行号
            ElseIf dateArr(i, 1) > targetDate Then
                If i < minRow Then
                    minRow = i
                End If
            End If
        End If
    Next i
    
    ' 输出结果
    If minRow <> ws.Rows.Count Then
        Debug.Print "找到的行号：" & minRow
    Else
        Debug.Print "没有符合条件的日期"
    End If
End Sub

小提示 #

• 一定要确保单元格里的是真正的日期，如果是文本格式的日期（比如输入的是"2019-07-05"字符串），可以先用CDate(cell.Value)转换后再比较。
• 如果你的A列是按日期升序排列的，还可以用WorksheetFunction.Match的近似匹配，代码会更简洁，但前提是数据必须排序哦！

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