register313

¦^´_ 5# av8d

1. Private Sub UserForm_Initialize()
   
2.     Dim d As Object, A
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With ActiveSheet
   
5.         For Each A In .Range("b2", .[b2].End(xlDown))
   
6.           d(A.Value) = ""
   
7.         Next A
   
8.         ComboBox1.List = Application.Transpose(d.keys)
   
9.         d.RemoveAll
   
10.         For Each A In .Range("c2", .[c2].End(xlDown))
    
11.           d(A.Value) = ""
    
12.         Next A
    
13.         ComboBox2.List = Application.Transpose(d.keys)
    
14.     End With
    
15. End Sub

½Æ»s¥N½X