是否可以在索引匹配vba中使用或函数？

Function Or(条件1, 条件2, ...)

Sub 索引匹配使用或函数()
    Dim 数据表 As Range
    Dim 匹配结果 As Range
    Dim i As Long
    
    ' 假设数据表格的范围为A1:C10
    Set 数据表 = Range("A1:C10")
    
    ' 清空匹配结果
    Set 匹配结果 = Nothing
    
    ' 遍历数据表格
    For i = 1 To 数据表.Rows.Count
        ' 判断条件：产品类型为"A类产品"或"B类产品"
        If 数据表.Cells(i, 1).Value = "A类产品" Or 数据表.Cells(i, 1).Value = "B类产品" Then
            ' 将匹配结果添加到结果集中
            If 匹配结果 Is Nothing Then
                Set 匹配结果 = 数据表.Rows(i)
            Else
                Set 匹配结果 = Union(匹配结果, 数据表.Rows(i))
            End If
        End If
    Next i
    
    ' 输出匹配结果
    If Not 匹配结果 Is Nothing Then
        匹配结果.Select
    Else
        MsgBox "未找到匹配的数据行。"
    End If
End Sub