- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 83
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-4-7
               
|
回復 1# hugh0620 - Sub Ex()
- Set d = CreateObject("Scripting.Dictionary")
- ar = Range("A1").CurrentRegion.Value
- For i = 1 To UBound(ar, 1)
- If d(ar(i, 1)) = "" Then
- d(ar(i, 1)) = ar(i, 2)
- ElseIf InStr(d(ar(i, 1)), ar(i, 2)) = 0 Then
- d(ar(i, 1)) = d(ar(i, 1)) & "/" & ar(i, 2)
- End If
- Next
- [J:K] = ""
- [J1].Resize(d.Count, 1) = Application.Transpose(d.keys)
- [K1].Resize(d.Count, 1) = Application.Transpose(d.items)
- End Sub
|
|
發表於 2012-3-26 10:44
| 
