在VBA中对2D数组进行索引匹配

Sub MatchIndexIn2DArray()
    Dim arr(1 To 3, 1 To 2) As Variant
    Dim i As Integer, j As Integer
    Dim searchValue As Variant
    Dim found As Boolean
    
    ' 初始化2D数组
    arr(1, 1) = "Apple"
    arr(1, 2) = 10
    arr(2, 1) = "Banana"
    arr(2, 2) = 15
    arr(3, 1) = "Orange"
    arr(3, 2) = 20
    
    ' 设置要搜索的值
    searchValue = "Banana"
    
    ' 初始化标志位
    found = False
    
    ' 遍历2D数组进行索引匹配
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            If arr(i, j) = searchValue Then
                ' 找到匹配项
                found = True
                Exit For
            End If
        Next j
        
        If found Then
            Exit For
        End If
    Next i
    
    ' 输出结果
    If found Then
        MsgBox "找到匹配项：" & searchValue & "，位置为：" & i & "," & j
    Else
        MsgBox "未找到匹配项：" & searchValue
    End If
End Sub