[µo°Ý] ·JÁ`¤£¦P¤u§@ªí¦b¤@­ÓÁ`ªí¡A

armin0521

¦@¦³¦n´X­Ó¤u§@ªí¡A»Ý­n»s§@¤@­ÓÁ`ªí±N¼Æ¶q¡B¤é´Á·J¾ã¡A¼Æ¶q»Ý«ö¤j¤p±Æ§Ç¡A¦Ó¤é´Á¤]»Ý­n«ö¥ý«á±Æ§Ç¡A¨Ã¥B¥i¥H³sµ²¦Ü¹ïÀ³ªº¤u§@ªí¤¤¡A¥i¥H³o¼Ë°µ¶Ü

Á`ªí
¼Æ¶q(A1)                  ¤é´Á(B1)   
80   (A2)                   102/2/10(B2)   
65   (A3)                   102/8/19(B3)   
48   (A4)                   103/3/9(B4)   
37   (A5)                   103/8/9(B5)   
29   (A6)                   103/10/16(B6)   

¤u§@ªí1
©m¦W  ¤ý¤@©ú
¼Æ¶q  80
¤é´Á  103/8/9

¤u§@ªí2
©m¦W ·¨¤p­¸
¼Æ¶q 65
¤é´Á 102/2/10

¤u§@ªí3
©m¦W §õ¤j§»
¼Æ¶q 37
¤é´Á 103/3/9

¤u§@ªí4
©m¦W §dªé§°
¼Æ¶q 48
¤é´Á 103/10/16

¤u§@ªí5
©m¦W §õº~®R
¤é´Á 102/8/19
¼Æ¶q29

ashan0418

¦^´_ 1# armin0521

­Y¬O¥ÎVBAªº¤è¦¡¨Ó¸Ñ¨M¡A±z¯à±µ¨ü¶Ü??

ashan0418

¦^´_ 1# armin0521

1. Sub test1()
   
2.     Sheets.Add after:=Sheets(Sheets.Count)
   
3.     Sheets(Sheets.Count).Name = "Á`ªí"
   
4.     Sheets(Sheets.Count).[a1] = "©m¦W"
   
5.     Sheets(Sheets.Count).[b1] = "¼Æ¶q"
   
6.     Sheets(Sheets.Count).[c1] = "¤é´Á"
   
7.     Sheets(Sheets.Count).[d1] = "¨Ó·½¤u§@ªí"
   
8.     For i = 1 To Sheets.Count - 1
   
9.         Sheets(i).Range("b1:b3").Copy
   
10.         Sheets(Sheets.Count).[a65535].End(xlUp).Offset(1).PasteSpecial Transpose:=True
    
11.         Cells(Selection.Row, 4) = Sheets(i).Name
    
12.     Next
    
13.    
    
14.     Sheets("Á`ªí").Sort.SortFields.Add Key:=Range("C2:C" & [c65535].End(xlUp).Row), Order:=xlAscending
    
15.     Sheets("Á`ªí").Sort.SortFields.Add Key:=Range("B2:B" & [b65535].End(xlUp).Row), Order:=xlAscending
    
16.     With Sheets("Á`ªí").Sort
    
17.         .SetRange Range("A1:D" & [c65535].End(xlUp).Row)
    
18.         .Header = xlYes
    
19.         .MatchCase = False
    
20.         .Orientation = xlTopToBottom
    
21.         .SortMethod = xlPinYin
    
22.         .Apply
    
23.     End With
    
24.     MsgBox "¦X¨Ö§¹¦¨"
    
25. 
    
26.    
    
27. End Sub

½Æ»s¥N½X