返回列表 上一主題 發帖

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

也許你舉的例子並不適當
附件這種運算幹嘛用到三維陣列?
試試:
  1. Sub test()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheets("Data")
  4. a = .Range(.[a2], .[k65536].End(3))
  5. End With
  6. For i = 1 To UBound(a)
  7. d(a(i, 1) & "," & a(i, 2)) = Application.Index(a, i)
  8. Next
  9. Sheets("Temp").[a2].Resize(d.Count, UBound(a, 2)) = Application.Transpose(Application.Transpose(d.items))
  10. End Sub
複製代碼

TOP

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

TOP

        靜思自在 : 有願放在心裡,沒有身體力行,正如耕田不播種,皆是空過因緣。
返回列表 上一主題