- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
Sub TEST()
Dim Arr, Brr, xD, T&, i&, j%, U&, N&
Arr = Range([A1], [A65536].End(xlUp)(1, 7))
Set xD = CreateObject("scripting.dictionary")
ReDim Brr(1 To UBound(Arr), 1 To 7)
For i = 2 To UBound(Arr)
T = Arr(i, 1): U = xD(T)
If U > 0 Then Brr(U, 5) = Brr(U, 5) + Arr(i, 5): GoTo 101
N = N + 1: U = N: xD(T) = N
For j = 1 To 7: Brr(U, j) = Arr(i, j): Next
101: Next i
If N > 0 Then [J1].Resize(N, 7) = Brr
End Sub
同樣邏輯，不同寫法，自行去揣摩∼∼
上網去找 字典檔 及 array陣列 的資料及說明，瞭解了，其它都簡單！
|
|
發表於 2016-9-30 14:12
| 