[µo°Ý] Ãö©ó¦¹µ{¦¡½X¦A±Æ§Ç«ü¥OªºÀu¤Æ?

starry1314

½Ð°Ý¦¹¬q¥i«ç»òÀu¤Æ©O?
¦³¬d¨ìÃö©ó³o¤p¬qªº»¡©ú ¦n¹³³£¬OÄÝ©ó±Æ§Ç? (¦b³Ì¤U¤è¹Ï¤ù)
¥D­n¬O·Q­n¨ÌM¦C±qm2¶}©l ¥Ñ¤p¨ì¤j±Æ§Ç

1. ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort.SortFields.Clear
   
2.     ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort.SortFields.Add Key:=Range( _
   
3.         "M:M"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
   
4.         xlSortNormal
   
5.             With ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort
   
6.         .Header = xlYes
   
7.         .MatchCase = False
   
8.         .Orientation = xlTopToBottom
   
9.         .SortMethod = xlPinYin
   
10.         .Apply
    
11.     End With

½Æ»s¥N½X

§¹¾ãµ{¦¡½X

1. Sub °t¿¯²M³æ()
   
2. '
   
3. With Sheets("¤u§@ªí1")
   
4.     ActiveSheet.Range("$A$1").AutoFilter Field:=15, Criteria1:=Array( _
   
5.         "¤¸®ð¥D­¹", "´ö«~", "¶¼«~", "ÂI¤ß", "¯S®í¶¼«~"), Operator:=xlFilterValues
   
6.     ActiveSheet.Range("$A$1:$AT$96").AutoFilter Field:=19, Criteria1:="."
   
7.     ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort.SortFields.Clear
   
8.     ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort.SortFields.Add Key:=Range( _
   
9.         "M:M"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
   
10.         xlSortNormal
    
11.             With ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort
    
12.         .Header = xlYes
    
13.         .MatchCase = False
    
14.         .Orientation = xlTopToBottom
    
15.         .SortMethod = xlPinYin
    
16.         .Apply
    
17.     End With
    
18.         .UsedRange.Columns("M:M").Copy Sheets("°t¿¯(¦­)").[C6]
    
19.         .UsedRange.Columns("O:O").Copy Sheets("°t¿¯(¦­)").[A6]
    
20.         .UsedRange.Columns("Q:Q").Copy Sheets("°t¿¯(¦­)").[D6]
    
21.         .Range("A1").AutoFilter
    
22.         End With
    
23. End Sub

½Æ»s¥N½X

¤U¸ü (56.48 KB)

2015-7-7 16:44

starry1314

¦^´_ 1# starry1314


¤w¸Ñ¨M
Sub °t¿¯²M³æ()


With Sheets("¤u§@ªí1")
    ActiveSheet.Range("$A$1").AutoFilter Field:=15, Criteria1:=Array( _
        "¤¸®ð¥D­¹", "´ö«~", "¶¼«~", "ÂI¤ß", "¯S®í¶¼«~"), Operator:=xlFilterValues
    ActiveSheet.Range("$A$1").AutoFilter Field:=19, Criteria1:="."
Range("a2:AW" & [a65536].End(xlUp).Row).Sort Key1:=Range("m2"), Order1:=xlAscending

        .UsedRange.Columns("M:M").Copy Sheets("°t¿¯(¦­)").[C6]
        .UsedRange.Columns("O:O").Copy Sheets("°t¿¯(¦­)").[A6]
        .UsedRange.Columns("Q:Q").Copy Sheets("°t¿¯(¦­)").[D6]
        .Range("A1").AutoFilter
        En