VBA比较大小不同的数组并构建一个新数组

Question

我有一个由字符串列表框生成的一维数组，我想用它来匹配主二维数组，其中第一列中的字符串和所有其他列中的数字。目标是创建第三个数组，其中包含匹配的字符串和来自 master 的相关数据。尽管主题不是未知的，但无法从此处搜索找到更好的解决方案。猜猜我在构建新数组时迷失了方向。

Private Sub ImportSelection()
    Dim i, j, k, m, ListSize As Integer
    Dim arr2() As String
    Dim pArr As variant     
    Dim Size As Integer

    Size = List2.ListCount
    ReDim ListBoxContents(0 To Size) As String

    For i = 1 To Size
        ListBoxContents(i) = List2.list(i)
    Next i

    On Error GoTo eh
    ReDim arr2(1 To List2.ListCount, 1 To 16)

    For i = LBound(ListBoxContents) To UBound(ListBoxContents)
        For j = LBound(pArr, 1) To UBound(pArr, 1)
                If ListBoxContents(i) = pArr(i, 1) Then
                    arr2(k, m) = pArr(i, j)
                    k = k + 1
                    m = m + 1
                End If
            Next j
        Next i
eh:
    MsgBox Err.Description
End Sub

Answer 1

将代码中间部分改为-->

k = 0  ' need to initialize (and also add headings to row zero)
For i = LBound(ListBoxContents) To UBound(ListBoxContents)
    For j = LBound(pArr, 1) To UBound(pArr, 1)
            If ListBoxContents(i) = pArr(J, 1) Then  ' pArr needs to be J
                k = k + 1   ' got a match, ergo increment the output row
                For m = 0 To UBound(pArr, 2) - 1
                    arr2(k, m) = pArr(J, m)  ' move into col m, from pArr J row
                Next m                
            End If
    Next j
Next i
Exit Sub  ' do not drop thru

同样作为 Comintern sez --> pArr 永远不会被赋值。

另外，你得到你想要的东西了吗

Dim i, j, k, m, ListSize As Integer