返回列表 上一主題 發帖

字典除去重覆

mdr0465

帖子
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)

Untitled.png

收藏 分享

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1458 
主題
40 
精華
0 
積分
1482 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-9-15 
2#
發表於 5 小時前 | 只看該作者
回復 1# mdr0465


    以下請試試看
[m1].Resize(UBound(t)+1)  

因為 LBound(t) 是 0
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題