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的。