VBA Find函数匹配DateTime格式单元格问题求助

核心问题分析 #

1. 错误91的直接原因：当Find未找到匹配项时会返回Nothing，直接访问.Row属性会触发“块变量错误91”，必须先判断查找结果是否存在。
2. 日期时间匹配失效：Excel中日期时间以浮点数存储，若CDate(CellTime)转换后的数值与单元格存储的数值存在精度差异（比如毫秒级差异），或单元格为文本格式的日期，都会导致匹配失败。

解决步骤与修正代码 #

步骤1：捕获查找结果，避免错误91 #

先将Find的结果存入Range变量，判断非空后再获取行号：

Dim foundCell As Range
Set foundCell = YearSheet.Range("W:W").Find( _
    What:=CDate(CellTime), _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    MatchCase:=False)

If Not foundCell Is Nothing Then
    PasteLoc = foundCell.Row
Else
    ' 处理未找到的情况，示例：赋值为0或提示
    PasteLoc = 0
End If

步骤2：针对日期时间精度问题的优化 #

若单元格存储的时间包含毫秒级精度，CDate(CellTime)可能因精度丢失无法匹配，可统一转换为秒级精度后查找：

Dim targetTime As Double
' 将目标时间转换为秒级精度的浮点数
targetTime = Round(CDate(CellTime) * 86400, 0) / 86400

Set foundCell = YearSheet.Range("W:W").Find( _
    What:=targetTime, _
    LookIn:=xlValues, _
    LookAt:=xlWhole)

步骤3：处理文本格式的日期单元格 #

如果W列是文本格式的yyyy-mm-ss h:mm日期，需将目标时间格式化为相同字符串后匹配：

Set foundCell = YearSheet.Range("W:W").Find( _
    What:=Format(CDate(CellTime), "yyyy-mm-ss h:mm"), _
    LookIn:=xlValues, _
    LookAt:=xlWhole)

额外注意事项 #

• 确保CellTime是有效的日期时间字符串/数值，否则CDate转换会出错，可提前用IsDate(CellTime)验证。
• 若查找范围较大（整列），可缩小查找区域提升效率，比如YearSheet.Range("W1:W" & YearSheet.Cells(YearSheet.Rows.Count, "W").End(xlUp).Row)。

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