Excel vba：存储阵列，嵌套数组，锯齿阵列

Question

我有3个数组，每个数组包含3个范围。我想将这些数组存储在一个数组中。我尽量做到以下几点：

Function test()   
      Dim a() As Range 
      Dim b() As Range 
      Dim c() As Range 
      a = getA(dataWorkbook) 'a(1)=Range(...), a(2)=Range(...), a(3)=Range(...) 
      b = getB(dataWorkbook) 
      c = getC(dataWorkbook) 

      Dim allArrays(1 To 3) As Range 
      ' allArrays(1) = a 
      ' allArrays(2) = b 
      ' allArrays(3) = c 

      test="HELLO" 
End Function 

但是，如果我去掉线，allArrays分配，函数返回值，而不是“HELLO！”。我做错了什么？

Answer 1

创建交错数组的最佳方法是使用一个Variant：

Dim allArrays As Variant 
ReDim allArrays(1 To 3) 
'rest of code will work as intended 

您可以简化代码，只是使用Array功能：

Dim allArrays As Variant 
allArrays = Array(a, b, c) 

虽然在这种情况allArrays会基于0而不是基于1的。