koo

¦¬¶°¤F¤@­Ó¨ä¾l½Ð¦Û¦æÂX¥R·d©w

1. Private Sub UserForm_Initialize()
   
2.     Dim A As Range
   
3.     ComboBox1.Clear
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("¤u§@ªí1")
   
6.         .Activate
   
7.         For Each A In .Range("A2", .[A2].End(xlDown))
   
8.           d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 2).Value, d(A.Value) & "," & A.Offset(, 2))
   
9.         Next
   
10.         ComboBox1.List = d.keys
    
11.     End With
    
12.     ComboBox1.Value = "¿ï¨ú"
    
13. End Sub
    
14. 
    
15. 
    
16. Private Sub CommandButton1_Click()
    
17.     Sheets("¤u§@ªí1").AutoFilterMode = False
    
18.     kx = ComboBox1.Value
    
19.         With Sheets("¤u§@ªí1")
    
20.             If kx <> "¿ï¨ú" And kx <> "" Then .UsedRange.AutoFilter Field:=1, Criteria1:=kx
    
21.             Sheets("¤u§@ªí2").Cells.Clear
    
22.             .UsedRange.Copy Sheets("¤u§@ªí2").Range("A1")
    
23.         End With
    
24.         Sheets("¤u§@ªí1").AutoFilterMode = False
    
25. End Sub

½Æ»s¥N½X

¤U¸ü (28.34 KB)

2015-5-6 20:36

koo

µ²ªG½Æ»s¨ì¤u§@ªí2

¤U¸ü (18.13 KB)

2015-5-6 20:40