VBA中如何将数组的数组写入单元格区域？是否仅支持二维数组？

是的，Excel VBA里直接将**数组的数组（锯齿数组）**赋值给单元格区域是无效的，只有显式声明的二维数组才能直接和Range区域双向赋值。

原因 #

Excel的Range对象要求赋值的数组必须是真正的二维结构（行×列），而你写的数组本质是一维数组，每个元素又是独立的一维数组，这种"嵌套一维数组"的结构和Range期望的二维数组不兼容，所以直接赋值后单元格会显示为空。

解决方法：把锯齿数组转换成二维数组 #

你可以写一个转换函数，将锯齿数组的内容转成标准二维数组，再赋值给Range。示例代码如下：

' 转换锯齿数组为标准二维数组的函数
Function JaggedTo2D(jaggedArr As Variant) As Variant
    Dim rowCount As Integer, colCount As Integer
    Dim i As Integer, j As Integer
    Dim resultArr As Variant
    
    rowCount = UBound(jaggedArr) - LBound(jaggedArr) + 1
    ' 假设所有子数组长度一致，取第一个子数组的长度作为列数
    colCount = UBound(jaggedArr(LBound(jaggedArr))) - LBound(jaggedArr(LBound(jaggedArr))) + 1
    
    ' 声明二维数组（VBA中二维数组默认行优先，下标从1开始更适配Excel）
    ReDim resultArr(1 To rowCount, 1 To colCount)
    
    For i = LBound(jaggedArr) To UBound(jaggedArr)
        For j = LBound(jaggedArr(i)) To UBound(jaggedArr(i))
            ' 转换下标，适配二维数组的1起始下标
            resultArr(i - LBound(jaggedArr) + 1, j - LBound(jaggedArr(i)) + 1) = jaggedArr(i)(j)
        Next j
    Next i
    
    JaggedTo2D = resultArr
End Function

' 调用示例
Sub TestWriteJaggedArray()
    Dim r_len As Integer, c_len As Integer
    r_len = 2 ' 行数
    c_len = 3 ' 列数
    Dim arr(r_len) As Variant
    Dim i As Integer
    
    ' 模拟你的Function返回一维数组
    For i = 0 To UBound(arr)
        arr(i) = GetOneDArray(c_len)
    Next i
    
    ' 转换后写入单元格
    Range("A1").Resize(UBound(arr) + 1, c_len) = JaggedTo2D(arr)
End Sub

' 模拟返回一维数组的函数
Function GetOneDArray(colCount As Integer) As Variant
    Dim tempArr() As Variant
    ReDim tempArr(0 To colCount - 1)
    Dim j As Integer
    For j = 0 To colCount - 1
        tempArr(j) = "Row" & (UBound(tempArr) - j) & "Col" & j
    Next j
    GetOneDArray = tempArr
End Function

补充说明 #

如果你的子数组长度不一致，转换时需要额外处理（比如取最大长度作为列数，空缺的单元格留空），但通常Excel单元格区域是规整的，所以默认子数组长度一致即可。

内容的提问来源于stack exchange，提问作者Shoebagel