Hsieh

¦^´_ 1# idsmchow

1. Private Sub CommandButton1_Click()
   
2. Dim Sh As Worksheet, Rng As Range
   
3. For Each Sh In Sheets
   
4. If Sh.Name <> "Statement" Then   '²¤¹LStatement¤u§@ªí
   
5. With Sh
   
6.   If .AutoFilter.Filters(3).On Then .ShowAllData   '¦pªGCÄæ¨S¦³³Q¿z¿ï
   
7.      .Range("A1").CurrentRegion.AutoFilter 3, Sheets("Statement").Range("G2"), xlAnd   '´N¥HCÄæ¿z¿ï
   
8.      Set Rng = Intersect(.[A2:D65536], .AutoFilter.Range.SpecialCells(xlCellTypeVisible))    'A:DÄõ¸¦2¦C¥H¤U»P¿z¿ïµ²ªGªº¥i¨£Àx¦s®æ¥æ¶°³¡¤À
   
9.      If Not Rng Is Nothing Then Rng.Copy Sheets("Statement").Range("A65536").End(xlUp).Offset(1, 0)  '½Æ»s
   
10. End With
    
11. End If
    
12. Next
    
13. End Su

½Æ»s¥N½X