使用变量名

Question

我正在使用循环将集合添加到vba集合中。

顶级系列是columns 我循环了7天，目标是每天收集一个包含6个值的集合column。在循环结束时，columns包含7个包含42个值（7 * 6）的集合，显然在每个循环中，列不会重置为新集合，而是添加到第一个创建的集合。

    Do While startColNum <= endColNum

        Dim column As New Collection '-- how do i create a new collection here without changing the previous??


        For i = Startrow To Endrow
            ActiveString = Cells(i, startColNum).Address(RowAbsolute:=False, ColumnAbsolute:=False)
            column.Add GetValue(path, file, sheet, ActiveString)
        Next i

        columns.Add column '-- this is the same collection, at the end of the loop each collection has 42 values.

        startColNum = startColNum + 1
    Loop

有没有办法创建一个带有变量名的集合？例如。

Set columns(i) = new collection