Excel VBA：短日期格式下Match函数匹配日期结果异常的解决咨询

你遇到的核心问题是：使用Match的**近似匹配模式（参数1）**时，日期格式导致的隐性类型差异，使得精确值匹配失败，进而返回错误的近似结果。尽管Excel日期的显示格式不改变内部序列号，但Range转数组时的类型转换、近似匹配的逻辑，共同导致了误匹配。

以下是两种高效且直接的解决方法，无需修改单元格格式：

方案1：使用精确匹配（推荐） #

将Match的第三个参数改为0（精确匹配），同时强制将目标日期转换为Excel内部的日期序列号（Long类型），直接在原Range上执行匹配：

Sub findDate()
    Dim dateToFind As Long
    Dim targetRng As Range
    Dim matchRow As Variant
    
    ' 把目标日期转为Excel内部序列号，统一匹配类型
    dateToFind = CLng(CDate(ThisWorkbook.Worksheets("calcSheet").Cells(275, "AG").Value))
    
    Set targetRng = ThisWorkbook.Worksheets("calcSheet").Range("A1:A6216") ' 保持你原有的范围
    
    On Error Resume Next ' 处理找不到日期的异常情况
    matchRow = WorksheetFunction.Match(dateToFind, targetRng, 0)
    On Error GoTo 0
    
    If Not IsError(matchRow) Then
        Debug.Print "目标日期对应的行号：" & matchRow ' 直接返回行号，A1为范围第1项
    Else
        Debug.Print "未找到目标日期"
    End If
End Sub

方案2：统一数组类型后匹配 #

如果你坚持使用数组处理，可先将日期数组全部转换为Long类型的序列号，再执行匹配：

Sub findDateWithArray()
    Dim dateToFind As Long
    Dim arr() As Variant
    Dim serialArr() As Long
    Dim i As Long
    Dim matchRow As Variant
    
    dateToFind = CLng(CDate(ThisWorkbook.Worksheets("calcSheet").Cells(275, "AG").Value))
    arr = ThisWorkbook.Worksheets("calcSheet").Range("A1:A6216").Value
    
    ' 将日期数组批量转为序列号数组，消除类型差异
    ReDim serialArr(1 To UBound(arr, 1), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr, 1)
        serialArr(i, 1) = CLng(arr(i, 1))
    Next i
    
    On Error Resume Next
    matchRow = WorksheetFunction.Match(dateToFind, serialArr, 0)
    On Error GoTo 0
    
    If Not IsError(matchRow) Then
        Debug.Print "目标日期对应的行号：" & matchRow
    Else
        Debug.Print "未找到目标日期"
    End If
End Sub

• Excel日期本质是整数序列号（1对应1900/1/1），显示格式仅影响视觉呈现，统一转为Long类型可彻底避免格式/类型导致的匹配问题。
• 精确匹配（参数0）更适合你的场景：你要找的是唯一存在的日期，近似匹配（参数1）仅用于找不到精确值时返回最近的小于等于项，容易出现误匹配。

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