VBA .Find方法匹配自定义时间格式值失败的技术求助

问题根源 #

核心问题是数据类型不匹配：你将Excel底层存储为数值的时间转换成了字符串类型，而表头区域的时间是数值格式。即便单元格显示的时间格式一致，数值转字符串后可能因小数位数、显示格式差异导致.Find无法识别匹配。

解决方案 #

1. 将start_time的类型从String改为Double（Excel时间本质是0到1之间的Double值，代表一天的比例）
2. 调用.Find时明确指定LookIn:=xlValues，确保查找单元格底层数值而非显示文本
3. 补充LookAt:=xlWhole和MatchCase:=False参数，提升匹配稳定性

修改后的代码 #

For row_number = 6 To 100 Step 2
    If Not IsEmpty(Range("C" & row_number)) Then
        Dim start_time As Double
        start_time = Range("C" & row_number).Value
        
        Dim rFind As Range
        Set rFind = Range("N2:CS2").Find( _
            What:=start_time, _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlNext, _
            MatchCase:=False _
        )
        
        ' 找到后的示例处理逻辑
        If Not rFind Is Nothing Then
            rFind.Interior.Color = vbYellow ' 标记匹配的表头单元格
        End If
    End If
Next row_number

补充说明 #

• Excel时间以小数形式存储（如7:30am对应0.3125），直接用数值查找能精准匹配底层值，避免字符串格式转换带来的误差。
• 若表头时间是文本格式而非真正的时间数值，需将start_time转换成与表头一致的字符串格式（例如Format(start_time, "hh:mm AM/PM")），但更推荐统一使用Excel时间数值类型，减少格式错误风险。

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