GBKEE

¦^´_ 1# enoch
¥i¦b§@¥Î¤¤ªº¤u§@ªíµøµ¡Sheet3 ¤¤ °µSheet1ªºRange("A1:C14") AÄæ°µ±Æ§Ç

1. Sub Ex()   
   
2.    Sheet3.Activate   
   
3.    With Sheet1
   
4.         .Range("A1:C14").Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:= _
   
5.         xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
   
6.         SortMethod:=xlStroke, DataOption1:=xlSortNormal
   
7.     End With
   
8.     '¤W¤Uªºµ{¦¡½X¬O¬Û¦Pªº®ÄªG
   
9.     '    Sheet1.Range("A1:C14").Sort Key1:=Sheet1.Range("A2"), Order1:=xlAscending, Header:= _
   
10.         xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    
11.         SortMethod:=xlStroke, DataOption1:=xlSortNormal   
    
12. End Sub

½Æ»s¥N½X