返回列表 上一主題 發帖

[發問] 找出不同值的各項

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-9-11 23:35 | 顯示全部帖子
回復 1# yangjie

Set d = CreateObject("Scripting.Dictionary")
Set Rng = Range("A1:A20")
For Each a In Rng
d(a.Value) = ""
Next
MsgBox d.Count  '項目數量
ComboBox1.List = d.keys    '寫入清單
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-9-12 10:36 | 顯示全部帖子
本帖最後由 Hsieh 於 2012-9-12 18:27 編輯

回復 3# yangjie


    Dictionary物件的兩個重要元素key與item
key是不能重複的索引值，正規一點的添加key應該使用add方法
如果使用add方法加入索引，必須先判斷是否該索引值已經存在，若重複add時將會產生錯誤
在這邊使用d(key)=item這樣的方式加入索引，只是會改變相對於key的item
此例中d(A & "")這是將key值，使用A變數轉成字串資料型態的方式作為索引
d(A.Value)=""
這是將儲存格變數A取出值作為索引值，而相對應的item都是以空字串為內容(可節省記憶空間)
此兩種寫法key都會得到一個不重複值的陣列

要加入條件判斷，則可再添加Key時做判斷
此例判斷Columns(cn1)有"string"字串才加入索引
If InStr(Cells(A.row,cn1),"string")>0 Then d(A &"")=A
學海無涯_不恥下問

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題