返回列表下一主題上一主題發帖

字典除去重覆

mdr0465

中學生 Rank: 2

帖子: 167
主題: 48
精華: 0
積分: 253
點名: 6
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2025-9-14

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於昨天 21:26 | 只看該作者

字典除去重覆

各位大大
小弟正在學習字典,但當我嘗試去除重覆的時候,但不明白公式錯了什麼會不成功, 欠了一個"李" 沒有出現,請各位高手指點

Sub TEST()

Set d = CreateObject("scripting.dictionary")

arr = Range("a1", Cells(Rows.Count, 1).End(xlUp))

For i = LBound(arr) To UBound(arr)
d(arr(i, 1)) = ""
Next

t = d.keys

[m1].Resize(UBound(t)) = Application.WorksheetFunction.Transpose(t)

End Sub

Untitled.png (8.66 KB)