GBKEE

¦^´_ 4# vavashop
¬O³o¼Ë¶Ü?

1. Sub Ex()
   
2.     With ActiveSheet.Range("$A$1:$GZ$5000")
   
3.         .AutoFilter Field:=7, Criteria1:="3"
   
4.         .AutoFilter Field:=6, Criteria1:="3"
   
5.         '±Æ§Ç¿z¿ï¥i¥H³]©w ¥ý«á¶¶§Ç¶Ü?
   
6.         '¬O³o¼Ë¶Ü!!
   
7.         .Columns(1).Sort KEY1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
   
8.         .Columns(2).Sort KEY1:=.Cells(2), Order1:=xlAscending, Header:=xlYes
   
9.         .Columns(3).Sort KEY1:=.Cells(3), Order1:=xlAscending, Header:=xlYes
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# vavashop


   

§Ú¬O¤£¬O¦]¬°¤U­±³o¤@¬q©Ò¥HÅܦ¨¶V¨Ó¶V¤j
Range("a2:gz100000").Select
    Selection.Copy

¸Õ¸Õ¬Ý ¥uCopy¦³¸ê®ÆªºÀx¦s®æ

1. Sheets("«ü©wªº¤u§@ªí").UsedRange.Columns("a:gz").Offset(1).Copy

½Æ»s¥N½X

GBKEE

¦^´_ 11# vavashop
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub ¥¨¶°9()
   
3.     Dim row_s1 As Integer
   
4.     'Àˬd¤u§@ªí1ªºBÄæ¤w¦³¸ê®Æ¦æ¼Æ
   
5.     With Worksheets("¬ö¿ý-©P¦P¶b¶^")
   
6.         row_s1 = .Range("B65535").End(xlUp).Row
   
7.         'B1µL¸ê®Æ®É¡Arow_s1 =0
   
8.         If row_s1 = 1 Then
   
9.             If .Cells(row_s1, 2) = "" Then
   
10.                 row_s1 = 0
    
11.             End If
    
12.         End If
    
13.     End With
    
14.     With Sheets("¶°¦X")
    
15.     ' ActiveSheet.Range("$A$1GZ$55586").AutoFilter Field:=2, Criteria1:= _
    
16.     ' xlFilterToday, Operator:=xlFilterDynamic
    
17.         With .Range("A1:GZ100000")
    
18.             .AutoFilter Field:=18, Criteria1:="<=0"
    
19.             .AutoFilter Field:=20, Criteria1:=">=1000"
    
20.             .AutoFilter Field:=25, Criteria1:="<=0"
    
21.             .AutoFilter Field:=26, Criteria1:="<=-2"
    
22.             .AutoFilter Field:=15, Criteria1:="<=0"
    
23.             .AutoFilter Field:=7, Criteria1:="<=0"
    
24.             .AutoFilter Field:=6, Criteria1:="<=0"
    
25.             .AutoFilter Field:=29, Criteria1:=">=50"
    
26.             .AutoFilter Field:=30, Criteria1:=">=50"
    
27.         End With
    
28.          'Range("a2:gz2").Select '²Ä¤GÄæa2~gz2
    
29.         .Range(.Range("a2:gz2"), .Range("a2:gz2").End(xlDown)).Copy Worksheets("¬ö¿ý-adxr¶^").Cells(row_s1 + 1, 2)
    
30.         '¿ï¾Ü¨ì³Ì«á¤@Äæ
    
31.         '.Selection.Copy
    
32.         'Worksheets("¬ö¿ý-adxr¶^").Select
    
33.         'Worksheets("¬ö¿ý-adxr¶^").Cells(row_s1 + 1, 1).Select
    
34.         'ActiveSheet.Paste
    
35.         .Select
    
36.         .ShowAllData
    
37.     End With
    
38. End Sub

½Æ»s¥N½X