av8d

回復 22# Hsieh


    謝謝大大~
我後來刪除Option Explicit~就可以了~
因為先前我沒有把每個變數都加上Dim宣告的動作~
因為宣告種類我還不熟悉~所以就沒去宣告@@

av8d

回復 18# GBKEE

原答案最後結果是當選到D欄CB的早餐~E欄CB只顯示豬肉牛肉
但是現在D欄的的CB的早餐內E欄CB的豬肉有兩筆希望只顯示一筆~如下
   
若D1=早餐  D2=午餐  D3=早餐  D4=早餐
若E1=豬肉  E2=雞肉  E3=牛肉  E4=豬肉

E1和E4重複~只顯示一筆~該如何結合呢?

av8d

回復 26# GBKEE


    遇到另一個問題~請教大大

如果我想對A欄做相同範例
但是我只想取年Year()重複則只顯示一筆

例如:
A1=2012/06/25 A2=2012/10/10 A3=2013/8/8
所以只取年則是A1=2012 A2=2012 A3=2013
重複則只顯示一筆所以ComboBox1則會出現2012和2013的選項可以選擇

我修改了一下6樓大大的程式如下
    Dim d As Object, A
    Set d = CreateObject("Scripting.Dictionary")
    With ActiveSheet
        For Each A In .Range("a2", .[a2].End(xlDown))
          d(Year(A.Value)) = ""
        Next A
        ComboBox1.List = Application.Transpose(d.KEYS)
    End With
即可完成~不知這樣是否可行!?

av8d

回復 28# GBKEE


    G大~謝謝你~您寫的都可以使用~