循环浏览VBA中多列列表框的行

Question

我有一个列表框问题。 我试图将多列列表框的内容作为列表框每一行的数组复制到集合中。 我意识到我可以遍历列表框的每一行和每一列，但是我试图找到一种方法来返回列表框的每一行并将其直接分配给数组。 像这样：

For each item in ListBox
    tempArrayA = item
    tempCollection.add item
Next item

但是，当我这样做时，它将为我提供每行的每个单独字段，而不是像我希望的那样一次提供整个行。 我一直在使用谷歌搜索功能，但我会继续使用谷歌搜索功能，但是我觉得这样做很不错，方法是遍历列表框中的每个项目，而不是选择每一行，然后遍历该行的每一列，因为我还有其他选择列表框的一行时执行的代码。

与往常一样，任何想法都将受到高度赞赏。 谢谢！

Answer 1

您可以利用工作表的Index函数，它可以在数组上工作以及作为Column参数输入的0占据整个行的事实。 这个真的很酷！：

Private Sub UserForm_Activate()
Dim varList As Variant
Dim varRow As Variant
Dim i As Long
Dim tempCollection As Collection

Me.ListBox1.List = ActiveSheet.Range("A2:B20").Value
varList = Me.ListBox1.List
Set tempCollection = New Collection
For i = 1 To Me.ListBox1.ListCount
    varRow = Application.WorksheetFunction.Index(varList, i, 0)
    tempCollection.Add varRow, CStr(i)
    Debug.Print tempCollection(i)(1); " "; tempCollection(i)(2)
Next i
End Sub