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

Question

这不是在Excel中定义数组的常见情况。它是在VBA中定义的，我需要在Excel的单元格中找到一个值，然后找到合适的值。在单元格A1中，我的值为DE000C5RQDA9。在B1中，我想返回RXM1。

实际的数组更多的是a (0到9，0到XX)，所以不要认为字典是可行的。XX动态变化。

示例

 Sub Test()

 Dim arr(0 To 1, 0 To 1)
 arr(0,0) = "RXM1"
 arr(0,1) = "UBM1"
 arr(1,0) = "DE000C5RQDA9"
 arr(1,1) = "DE000C5RQDD3"
 
With Application
   ActiveSheet.Cells(1, 2) = .Index(arr(0), .Match(ActiveSheet.Cells(1,1), arr(1), 0))
End with

 End sub

Answer 1

您可以使用Application.Index来获取要在索引/匹配中使用的列。

同样的想法也可以用于行。

Sub Test()
Dim arr(0 To 1, 0 To 1)
Dim col1 As Variant
Dim col2 As Variant

    arr(0, 0) = "RXM1"
    arr(0, 1) = "UBM1"
    arr(1, 0) = "DE000C5RQDA9"
    arr(1, 1) = "DE000C5RQDD3"

    col1 = Application.Index(arr, 1)
    col2 = Application.Index(arr, 2)
    With Application
        ActiveSheet.Cells(1, 2) = .Index(col1, .Match(ActiveSheet.Cells(1, 1), col2))
    End With

End Sub