这段代码一维数组时可以，二维数组时就不对了，请指教！

hcy1185

Sub ExampleUsage()
    Dim arr() As Variant, i&
    Dim searchValue As String
    Dim index As Variant

    ' 假设我们有一个包含数字的数组
    arr = Sheet1.Range("a4:g" & Sheet1.Cells(Rows.count, 1).End(xlUp).row)
    ' 设置要查找的值
    searchValue = ActiveSheet.Range("c2") '
    ' 使用MATCH函数查找值的位置
    For i = 3 To UBound(arr)
        index = Application.Match(searchValue, arr(i, 2), 0)
    Next i
    ' 判断是否找到值
    If IsError(index) Then
        MsgBox "值： " & searchValue & " 未找到"
    Else
        MsgBox "值： " & searchValue & " 在数组中的位置是 " & index
    End If
End Sub

lisongmei

Match 函数本身就只支持一列，返回的是查找值在数组中的一个位置，如果是二维数组，它是该返回横向位置还是竖向位置呢，所以，二维数组时那肯定就错咯，

hcy1185

lisongmei 发表于 2024-8-1 11:14
Match 函数本身就只支持一列，返回的是查找值在数组中的一个位置，如果是二维数组，它是该返回横向位置还是 ...

谢谢！........

liuyu5863016

试试：index = Application.Match(arr(i, 2),array(searchValue) , 0)

hcy1185

liuyu5863016 发表于 2024-8-1 13:53
试试：index = Application.Match(arr(i, 2),array(searchValue) , 0)

试了，不行

sdytsxd991122

index = Application.Match(searchValue, Application.index(arr, 0, 2), 0)

liuyu5863016

hcy1185 发表于 2024-8-1 15:22
试了，不行

如果只是检测searchvalue是不是再arr中，可以用这个：application.count(Application.Match(arr,array(searchValue) , 0))

但如果查找位置的话，那就要先用Index从arr中截取一维，然后再用match索引