- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 117
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-5-21
              
|
本帖最後由 Hsieh 於 2010-7-31 23:28 編輯
回復 5# valenty823 - Sub yy()
- Set d = CreateObject("Scripting.Dictionary")
- For Each a In Range([B4], [D65536].End(xlUp))
- If d(a.Value) = "" Then
- d(a.Value) = _
- Join(Array(a, Cells(a.Row, 1).Value, Cells(2, a.Column).Value, Cells(3, a.Column).Value), ",")
- Else
- d(a.Value) = _
- d(a.Value) & "," & Join(Array(Cells(a.Row, 1).Value, Cells(2, a.Column).Value, Cells(3, a.Column).Value), ",")
- End If
- Next
- [F2:O65536] = ""
- For Each ky In d.keys
- ar = Split(d(ky), ",")
- [F65536].End(xlUp).Offset(1, 0).Resize(, UBound(ar) + 1) = ar
- Next
- Range("A:A").Locked = False
- End Sub
|
|
發表於 2010-7-31 21:16
| 