GBKEE

¦^´_ 1# lifedidi

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Application.ScreenUpdating = False
   
4.     With Sheets("sheet1")
   
5.         .AutoFilterMode = False
   
6.         With .Range("B:U")
   
7.             .AutoFilter 3, ComboBox1  '¦Û°Ê¿z¿ï ²Ä3Äæ ·Ç«h=ComboBox1
   
8.             .Copy
   
9.         End With
   
10.         With Workbooks.Add(1)
    
11.             .Sheets(1).Paste
    
12.             .SaveAs ThisWorkbook.Path & "\" & ComboBox1
    
13.             .Close
    
14.         End With
    
15.        .Range("B2:U" & .Cells(.Rows.Count, "b").End(xlUp).Row).Delete xlUp       '§R±¼ ¦Û°Ê¿z¿ï¥X¨Óªº¸ê®Æ
    
16.        .AutoFilterMode = False
    
17.     End With
    
18.     Unload Me
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X