VBA开发多条件匹配函数时，如何正确传递并识别Range参数？

所有异常的根源是VBA中对象赋值必须使用Set关键字，两种报错本质都是同一问题：

• 当aRange声明为Range类型时，不加Set直接赋值，VBA会尝试读取Range对象的默认属性（Value）填充变量，但因为没有建立对象引用，就会触发Object Variable Not Set
• 当aRange声明为Variant类型时，不加Set直接赋值，VBA会把args(0)的默认属性值（而非Range对象本身）存入aRange，后续调用.Value2方法时自然因为aRange不是对象，触发Object Required

除了缺Set的核心问题，原有代码还有几处易引发异常的bug：

• 嵌套Do循环的退出逻辑存在缺陷，遍历容易超出数组边界，且计算出的匹配行号容易错位
• bfound变量没有显式声明，易因作用域问题导致判断失效
• 未兼容单单元格Range场景（单单元格的Value2返回单值而非二维数组，直接调用数组下标会报错）
• 没有校验成对参数的完整性，传入数量不匹配的条件参数时会触发下标越界
• 直接用等号比对单元格值，容易因数值/文本类型不一致导致匹配失败

Sub Test_FindCriteria()
    Dim lrow As Long
    lrow = FindCriteria(ActiveSheet.Range("a1:f100"), 1, "Ncompass", 3, "7.2", 4, "ncomphorizontrc", 5, "V85")
    MsgBox "匹配行（Range内相对位置）：" & lrow
End Sub

Function FindCriteria(ParamArray args() As Variant) As Long
' 多条件匹配函数
' Arg(0) = 待搜索的Range对象
' 剩余参数为成对的：[Range内相对列号, 目标匹配值]
  Dim vArr As Variant
  Dim aRange As Range
  Dim i As Long
  Dim j As Long
  Dim bMatched As Boolean
  
  ' 核心修正：对象赋值必须加Set
  Set aRange = args(0)
  
  ' 兼容单单元格Range场景
  If aRange.Cells.Count = 1 Then
    vArr = Array(Array(aRange.Value2))
  Else
    vArr = aRange.Value2
  End If
  
  ' 逐行遍历检查
  For j = LBound(vArr, 1) To UBound(vArr, 1)
    bMatched = True
    ' 逐对校验匹配条件
    For i = 1 To UBound(args) Step 2
      ' 跳过参数不完整的异常情况
      If i + 1 > UBound(args) Then
        bMatched = False
        Exit For
      End If
      ' 统一转字符串比对，避免类型差异导致匹配失效
      If CStr(vArr(j, args(i))) <> CStr(args(i + 1)) Then
        bMatched = False
        Exit For
      End If
    Next
    ' 找到全匹配行，返回相对行号
    If bMatched Then
      FindCriteria = j - LBound(vArr, 1) + 1
      Exit Function
    End If
  Next j
  
  ' 无匹配时返回0兜底
  FindCriteria = 0
End Function

• 直接将aRange声明为Range类型，赋值时加Set关键字建立对象引用，从根源解决两类报错
• 替换原有的嵌套Do循环为两层For循环，简化逻辑避免越界、行号错位问题
• 增加类型转换逻辑，规避数值/文本格式不一致的匹配问题
• 增加单单元格Range兼容、参数完整性校验、无匹配兜底逻辑，提升函数鲁棒性

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