返回列表下一主題上一主題發帖

[發問] 如何從三維陣列擷取每一層二維資料貼到sheet裡？請各位前輩指教～

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-8-13 11:18 | 只看該作者

[發問] 如何從三維陣列擷取每一層二維資料貼到sheet裡？請各位前輩指教～

各位前輩們大家好，

已知道存在的二維陣列(dAr)中若要擷取某一維度的資料可以使用 application.index(dAr,0,1) 或者 application.index(dAr,1,0) 的方式抽出資料

但如果是存在三維陣列(Ar)中，如何把每一層的二維資料抽出來，放到各別的sheet裡面。?
懇請各位前輩們與高手們指導，感謝。

Sub Ex()
Dim Ar, z, x, y
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 k
Next j
Next i
For z = 1 To 3
worksheets(z).[a1].resize(3,3)= ???????
Next z
End Sub

複製代碼

樓主熱帖

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

2^#

發表於 2015-8-13 11:22 | 只看該作者

各位前輩們大家好，

已知道存在的二維陣列(dAr)中若要擷取某一維度的資料可以使用 application.index(dA ...
justintoolbox 發表於 2015-8-13 11:18

抱歉，前面代碼有些錯誤，代碼修正如下

Sub Ex()
Dim Ar, z, x, y
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
For z = 1 To 3
worksheets(z).[a1].resize(3,3)= ???????
Next z
End Sub

複製代碼

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

3^#

發表於 2015-8-13 16:22 | 只看該作者

index 不支援3維, 看來要循環了。

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

TOP

justintoolbox