数组嵌套释放数组

全党

之前一个网友发的求助贴，把小数组按照行抽取，合成大数组，存到一个二维数组了，数组的每个元素同时也是一个数组，请教老师们，如何把arr数据释放出来。

liulang0808

Sub shishi()
ar1 = Range("b1").CurrentRegion
ar2 = Range("f1").CurrentRegion
ar3 = Range("j1").CurrentRegion
ReDim arr(1 To UBound(ar1) * UBound(ar2) * UBound(ar3), 1 To 9)
For i = 1 To UBound(ar1)
       For j = 1 To UBound(ar2)
        For k = 1 To UBound(ar3)
         n = n + 1
         For x = 1 To 3
            arr(n, x) = ar1(i, x)
            arr(n, x + 3) = ar2(j, x)
            arr(n, x + 6) = ar3(k, x)
        Next x
        Next k
    Next j
Next i
[aa1].Resize(n, 9) = arr
End Sub

liulang0808

。。。。。。。。。。。。。。。。。。

全党

liulang0808 发表于 2023-3-15 07:54
Sub shishi()
ar1 = Range("b1").CurrentRegion
ar2 = Range("f1").CurrentRegion

网上听过版主的课，果然厉害。我被题意限制了，局限在了整行抽取。顺带请教一下，整行抽取后数组套数组有办法释放出来吗？

liulang0808

全党 发表于 2023-3-15 08:44
网上听过版主的课，果然厉害。我被题意限制了，局限在了整行抽取。顺带请教一下，整行抽取后数组套数组有 ...

数组对数组还是逐一赋值吧，