請問各位三維陣列資料，該如何一次丟到儲存格？ - Excel程式區

[發問] 請問各位三維陣列資料，該如何一次丟到儲存格？

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-10-22 10:23 | 顯示全部帖子

也許你舉的例子並不適當
附件這種運算幹嘛用到三維陣列？
試試：

Sub test()
Set d = CreateObject("Scripting.Dictionary")
With Sheets("Data")
a = .Range(.[a2], .[k65536].End(3))
End With
For i = 1 To UBound(a)
d(a(i, 1) & "," & a(i, 2)) = Application.Index(a, i)
Next
Sheets("Temp").[a2].Resize(d.Count, UBound(a, 2)) = Application.Transpose(Application.Transpose(d.items))
End Sub

複製代碼

　頭銜: 街友一族

論壇貢獻勳章

2^#

發表於 2011-10-25 23:20 | 顯示全部帖子

將三維陣列一次寫入工作表本就不可能的
只能在第一維中循環
分別把它所屬的2、3維寫入工作表

靜思自在 : 心中常存善解、包容、感思、知足、惜福。