求助：向下取整NOW()函数后无法使用VLOOKUP匹配的问题

单元格公式方案（优先推荐） #

方法1：统一时间精度匹配 #

Excel中时间以小数形式存储，计算后的时间可能存在微小浮点误差，这会导致VLOOKUP匹配失败（即便直接相等验证显示TRUE）。可以通过ROUND函数统一精度后再匹配：

• 调整生成时间的公式：将当前时间取整单元格（如N1）改为 =ROUND(FLOOR(NOW(),"1:00"),5)，后续递增的时间同理：=ROUND(N1+(1/24),5)
• VLOOKUP公式示例：=VLOOKUP(N1, A:B, 2, FALSE)（此时N1已做精度处理）
  或直接在VLOOKUP内处理精度：=VLOOKUP(ROUND(N1,5), A:B, 2, FALSE)

方法2：转为文本格式匹配 #

将时间统一转为固定格式的文本，彻底消除精度问题：

• 生成时间时用：=TEXT(FLOOR(NOW(),"1:00"),"yyyy-mm-dd hh:mm")，后续递增时间：=TEXT(O1+(1/24),"yyyy-mm-dd hh:mm")
• 数据源的时间列（如A列）也统一转为相同格式：=TEXT(A1,"yyyy-mm-dd hh:mm")
• VLOOKUP公式：=VLOOKUP(N1, A:B, 2, FALSE)

方法3：使用INDEX+MATCH组合 #

同样处理精度后匹配，稳定性更强：
=INDEX(B:B, MATCH(ROUND(N1,5), A:A, 0))

VBA实现方案 #

如果需要更灵活的逻辑处理，可使用自定义函数：

Function GetWeather(targetTime As Date) As Variant
    Dim dataSheet As Worksheet
    Set dataSheet = ThisWorkbook.Worksheets("Sheet1") '替换为你的工作表名称
    Dim matchRow As Long
    
    '将目标时间统一取整到小时
    targetTime = DateSerial(Year(targetTime), Month(targetTime), Day(targetTime)) + _
                 TimeSerial(Hour(targetTime), 0, 0)
    
    On Error Resume Next
    matchRow = dataSheet.Columns("A").Find(What:=targetTime, LookIn:=xlValues, LookAt:=xlWhole).Row
    On Error GoTo 0
    
    If matchRow > 0 Then
        GetWeather = dataSheet.Cells(matchRow, "B").Value '替换为你需要提取的列
    Else
        GetWeather = "无匹配数据"
    End If
End Function

使用方式：在目标单元格输入 =GetWeather(N1) 即可获取对应数据。

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