VBA中Application.Match对比两区域数组结果异常报错求助

原代码错误点 #

• 循环对象逻辑颠倒：原代码遍历待匹配的目标区域Piso（D10:D13），正确逻辑应该遍历存储查找值的数组v3（H3:H6），逐个取值执行匹配。
• Match传参不符合语法规则：Application.Match第一个参数要求传入单个查找值，原代码直接传入整个二维数组v3，只要数组内存在任意可匹配的值，函数就不会返回错误，导致所有行都被误判为匹配成功，输出全量行号。
• 下标越界触发原因：尝试写v3(i)触发Error9，是因为单元格区域批量赋值生成的数组是二维数组，哪怕是单列/单行数据，也要指定第二维下标为1才能取到单个值，正确的单个元素写法为v3(i, 1)。
• 行号计算逻辑冗余：匹配返回的z是值在Piso数组内的相对位置，直接用区域起始行号加相对位置偏移即可算出真实工作表行号，不需要额外调用Cells属性取行。

修正后可直接运行的代码 #

Sub RenglonesdeMatch()
    Dim i As Long, z As Variant, v3 As Variant
    Dim Piso As Variant
    With Sheets("Hoja1")
        ' 自动读取两个区域的实际有效数据，原生支持两个区域行数不一致的场景
        Piso = .Range("D10:D" & .Cells(.Rows.Count, "D").End(xlUp).Row).Value
        v3 = .Range("H3:H" & .Cells(.Rows.Count, "H").End(xlUp).Row).Value

        ' 遍历所有待查找值做匹配
        For i = 1 To UBound(v3, 1)
            z = Application.Match(v3(i, 1), Piso, 0)
            If Not IsError(z) Then
                ' 数组相对位置转换为工作表真实行号
                Debug.Print 10 + z - 1
            End If
        Next i
    End With
End Sub

运行效果验证 #

使用提供的测试数据运行：

• H3:H6值为MARIA、ADRIANA、JUAN、LILIANA
• D10:D13值为JUAN、FER、MARIA、JIMENA
  VBA立即窗口输出结果为10（JUAN匹配行）、12（MARIA匹配行），和预期结果完全一致。

不等长数组适配说明 #

代码中已经通过End(xlUp)动态读取两个列的实际有效数据范围，不需要手动固定区域大小，查找值不存在于目标区域时会自动跳过，不会出现误判、报错问题。

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