GBKEE

¦^´_ 5# SteveChm

1. Option Explicit
   
2. Private Sub UserForm_Initialize()
   
3.     Dim d As Object, A   As Range, i As Integer
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("Sheet1")
   
6.         .Activate
   
7.         For Each A In .Range("A1", .[a1].End(xlDown))
   
8.           d(CDbl(A.Value)) = A.Value
   
9.         Next
   
10.         For i = 1 To d.Count
    
11.            ComboBox1.AddItem d(Application.Small(d.keys, i))
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X