返回列表 上一主題 發帖

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

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-11 23:28 | 顯示全部帖子

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

求教於各位大大
        如何於MyRange1內 找出只要不同值的各項共幾項?共哪幾項?以 d(n)表示?
又 for i=1 to  n
           combobox1.additem     d(i-1)?或----
     next
上述是要將 不同值的各項 增至 combobox1
要如寫法?
謝謝
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2012-9-12 00:06 | 顯示全部帖子
回復 2# Hsieh
太棒了
請教H大大
問題1.    d(a & "")=array(a.offset(,1))   與 d(a.value)=""   把我搞混了  尤其是 那兩個 ""
問題2.    Set d = CreateObject("Scripting.Dictionary")
               With Sheets("存查")
                         For Each a In .Range(.Cells(2, 2), .Cells(65536, 2).End(xlUp))
                                              d(a.Value) = ""
                         Next
               End With
               If d.Count = 0 Then Exit Sub
               ComboBox1.List = d.keys
       若要加一的條件 於column(an1)有="string1"   之 下作相異篩選 d(a.Value)            那條件column(an1)有="string1"應加在哪兒?

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2012-9-12 18:15 | 顯示全部帖子
回復 4# Hsieh
感謝H 大大說明
完全明瞭

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題