在VBA中创建二维数组列表

Question

我正在尝试在VBA中创建2d数组列表的练习。我相信我遇到语法问题。我在将y轴项添加到行时遇到问题。我收到一个错误：“ MultiList.Add（List）的'Invalid Procedure or arguments”。

我首先初始化x轴以创建数组列表行，然后使用Combined.count初始化列。

Sub Test()

Dim xaxis As Integer
xaxis = 4


Dim combined As New ArrayList
combined.Add ("version1")
combined.Add ("version2")
combined.Add ("version3")
combined.Add ("version4")
combined.Add ("version5")
combined.Add ("version6")
combined.Add ("version7")


Dim multiList As ArrayList
Set multiList = New ArrayList

'initialise empty array list of size xaxis with lists inside
For r = 0 To xaxis


Dim List As ArrayList
Set List = New ArrayList


multiList(r).Add (List)

Next


'fill the array lists

For x = 0 To xaxis
For y = 0 To combined.Count

multiList(x).Add (combined(y))

Next y
Next x


'print the array list

For x = 0 To xaxis
For y = 0 To combined.Count

Debug.Print (multiList(x)(y))

Next y
Next x




End Sub

总体目的是进行一些交叉引用，并根据x轴项包含还是不包含'combined'项填充二维数组列表。>

我正在尝试在VBA中创建2d数组列表的练习。我相信我遇到语法问题。我在将y轴项添加到行时遇到问题。我收到一个错误：'无效的过程或...

Answer 1

希望这是您所需要的：