分析可能重覆的欄值並在ListBox中Add唯一值,讓人員好選。
- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
Sub test()
Dim arr, oDic As Object, i
Set oDic = CreateObject("scripting.dictionary")
With Sheet1
arr = .Range("a1:a" & .[a65536].End(xlUp).Row)
End With
For i = 1 To UBound(arr)
oDic(arr(i, 1)) = ""
Next
Dept_Observing.List = oDic.keys
Set oDic = Nothing
End Sub |
|
|
公社是棵長青藤,社員都是藤上的瓜.
|
|
|
|
|
發表於 2011-1-16 21:46
| 