VBA中XLOOKUP/INDEX/Match查找波动序列首次出现值的异常问题

你的代码出错或返回错误结果，核心原因是Match和XLOOKUP的近似匹配模式（参数-1）要求查找范围必须是降序排序，但你的数据是上下波动的无序序列，完全不满足这个前提条件，所以这些函数无法正确工作。

逐个拆解代码问题：

• 第一段Match代码：Match(todayAspect, searchRng, -1)，参数-1的作用是在降序排列的区域里找小于等于目标值的最大项，但你的数据是波动的（比如4,5,6,4,3...），既不是升序也不是降序，Match会直接返回错误值，或者返回不符合预期的位置。
• 第二段XLOOKUP代码：XLookup(todayAspect, searchRng, returnRng, , -1)，这里的-1匹配模式同样要求数据降序，而且它会返回符合条件的最后一个项，和你要的首次出现需求完全不符，加上数据无序，结果必然错误。
• 第三段INDEX/Match代码：本质和第一段一样，Match的-1参数依赖降序数据，数据无序导致Match结果错误，INDEX自然也返回错误值。

因为你的数据是无序的，要找首次出现的目标值或更小值的位置，最可靠的方式是从头遍历单元格，逐个判断，直到找到第一个符合条件的项。以下是VBA代码示例：

Function FindFirstLessOrEqual(targetVal As Double, searchRange As Range) As Variant
    Dim cell As Range
    ' 遍历查找范围的每个单元格
    For Each cell In searchRange
        ' 检查当前单元格值是否小于等于目标值
        If cell.Value <= targetVal Then
            ' 返回该单元格的行号，可根据需求修改为列号或其他标识
            FindFirstLessOrEqual = cell.Row
            Exit Function ' 找到第一个符合条件的就退出
        End If
    Next cell
    ' 遍历完未找到时返回提示
    FindFirstLessOrEqual = "未找到符合条件的值"
End Function

你可以在VBA模块中添加这个函数，然后在代码中调用：

Dim target As Double
target = 3 ' 你的查找值
Dim searchRng As Range
Set searchRng = Range("u4:u5908")
Dim resultRow As Variant
resultRow = FindFirstLessOrEqual(target, searchRng)
' 若要返回对应A列的值
If IsNumeric(resultRow) Then
    nextDate = Range("A" & resultRow).Value
Else
    nextDate = resultRow ' 处理未找到的情况
End If

这个方法不依赖数据排序，严格从第一个单元格开始检查，确保返回的是首次出现的符合条件的位置。

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