循环通过具有常规数组的多维数组循环并返回第二列

Question

背景：

我创建了一个启用宏的工作簿，将数据从一个范围拉到一个列表框中，然后我从一个列表框中选择项目并将它们移动到一个＆＃34; Selected Listbox＆＃34;。完成后，我将选定的列表框项目放入一个数组（只有一列）。然后我选择了另一个范围内的项目，并创建了一个带有值的变量多维数组（这是2列）。

我想遍历所选的数组，并为每个值循环遍历多维数组，并将多维数组的第一个值与所选数组进行比较。如果匹配，则将多维数组的第二个值存储到新数组中。

我怎样才能做到这一点？无论我尝试什么，我都会遇到各种各样的错误。

这甚至可能吗？

请指教！

以下是代码的一个版本：

t2array = Sheets("T1T2").Range("A2:B" & Lrowt1t2).Value
Dim selectt2array() As Variant
For i = 1 To UBound(selectedfraudcat, 1)
    For i = 1 To UBound(t2array, 1)
        If selectedfraudcat(i) = t2array(i, 1) Then
            select2array(i) = t2array(i, 2)
        End
    Next i
Next i