麻辣家族討論版版 » Excel程式區 » 如何從三維陣列擷取每一層二維資料貼到sheet裡？請各位前輩指教～

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

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

中學生 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

複製代碼

樓主熱帖

收藏

中學生 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

複製代碼

中學生 Rank: 2

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

3^#

發表於 2015-8-14 06:45 | 顯示全部帖子

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

Sub Ex()
Dim Ar, z, x, y, ar3
ReDim Ar(1 To 3, 1 To 3, 1 To 3)
...
ikboy 發表於 2015-8-13 16:22

太感謝ikboy指點！

這方法非常好（將3維陣列的某一層資料讀出至新建的2維陣列，再把2維陣列貼到sheet裡面)！

非常感謝你～

中學生 Rank: 2

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

4^#

發表於 2015-8-14 06:49 | 顯示全部帖子

太感謝ikboy指點！

這方法非常好（將3維陣列的某一層資料讀出至新建的2維陣列，再把2維陣列貼到shee ...
justintoolbox 發表於 2015-8-14 06:45

請教各位高手與前輩們，除了使用回圈方式(好方法之一)，

是否還有其他的方法能直接讀取3維陣列中某一層的2維陣列資料？(好方法之二？！)

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。

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