Hsieh

¦^´_ 1# yangjie

¸ê®Æ¬O¤å¦r©Î¬O¼Æ­È?
­n³q¥Î´N­n¥H¦r¤¸½X±Æ§Ç

1. Sub ex()
   
2. Set d = CreateObject("Scripting.dictionary")
   
3. For Each a In Range([A1], [A1].End(xlDown))
   
4.   k = 0
   
5.   For i = 1 To Len(a)
   
6.      k = k + Asc(Mid(a, Len(a) - i + 1, 1)) * 10 ^ i
   
7.   Next
   
8.   d(k) = a.Value
   
9. Next
   
10. ComboBox1.Clear
    
11. For i = 1 To d.Count
    
12.    ComboBox1.AddItem d(Application.Small(d.keys, i))
    
13. Next
    
14. End Sub

½Æ»s¥N½X