ikboy

index ¤£¤ä´©3ºû, ¬Ý¨Ó­n´`Àô¤F¡C

Sub Ex()
Dim Ar, z, x, y, ar3
ReDim Ar(1 To 3, 1 To 3, 1 To 3)
For z = 1 To 3
   For x = 1 To 3
          For y = 1 To 3
                Ar(z, x, y) = z * x * y
            Next y
    Next x
Next z
ReDim ar3(1 To UBound(Ar), 1 To UBound(Ar, 2))
For z = 1 To UBound(Ar)
    For x = 1 To UBound(Ar, 2)
        For y = 1 To UBound(Ar, 3)
            ar3(x, y) = Ar(z, x, y)
        Next
    Next
Worksheets(z).[a1].Resize(UBound(Ar), UBound(Ar, 2)) = ar3
Next
End Sub