- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
也許你舉的例子並不適當
附件這種運算幹嘛用到三維陣列？
試試：- 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
|
|
發表於 2011-10-22 10:23
| 