用户窗体列表框第二列中的 Vlookup

Question

我正在创建一个由 2 列组成的用户表单列表框。 第一列是从工作表中提取的名称，而我试图使第二列成为第一列的 vlookup。 我知道有比使用 vlookup 更好的路线，但是这个用户表单的下一步将需要它们（将对重复项求和）。 到目前为止，通过我的尝试，我要么无法生成第二列、生成单个数字，要么无法让第二列引用空白空间。 我将不胜感激。 谢谢！

Dim i As Long
Dim j As Long
Dim Temp As Variant
Dim List As New Collection
Dim rnArea As Range, rnCell As Range
Dim vaValues As Variant
Dim LookupName As String

ItemSummaryList.ColumnCount = 2
ItemSummaryList.ColumnWidths = "125;75"

Set rnArea = ActiveSheet.Range(Range("G5"), Range("G3003").End(xlUp))

On Error Resume Next
For Each rnCell In rnArea
List.Add rnCell.Value, CStr(rnCell.Value)
'ItemSummaryList.AddItem CStr(rnCell.Value)
MyLookup = Application.WorksheetFunction.VLookup(rnCell, Sheet1.Range("G5:N3003"), 2, False)
ItemSummaryList.List(rnCell.Value, 1) = MyLookup
Next rnCell
On Error GoTo 0

'Hides Blank Spaces
For Each vaValues In List
    If vaValues <> vbNullString Then
        ItemSummary.ItemSummaryList.AddItem vaValues
    End If
Next

'Sorts List
 With ItemSummaryList
    For i = 0 To .ListCount - 2
        For j = i + 1 To .ListCount - 1
            If .List(i) > .List(j) Then
                Temp = .List(j)
                .List(j) = .List(i)
                .List(i) = Temp
            End If
        Next j
    Next i
End With

End Sub