標題: 字典除去重覆 [打印本頁]

---

作者: mdr0465    時間: 2025-9-14 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

---

作者: Andy2483    時間: 2025-9-15 15:31

回復 1# mdr0465


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

因為 LBound(t) 是 0

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)