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