GBKEE

¦^´_ 2# luhpro
¨Ì¼Ó¥DªºªþÀɲ¤Æ¦p¤U

1. Sub Ex()
   
2.     With Sheet2
   
3.         .Cells.Clear
   
4.         Sheet1.Range("A3").CurrentRegion.Copy .[A1]
   
5.         .[A1].Sort Key1:=.Columns("I"), Header:=xlYes
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# am0251
¬O³o¼Ë¶Ü?

1. Sub Ex()
   
2.     Dim Rng As Range
   
3.     Set Rng = Sheet1.Range("A3").CurrentRegion
   
4.     With Sheet2
   
5.         .Cells.Clear
   
6.         Rng.Copy .[A1]
   
7.         .[A1].Sort Key1:=.Columns("I"), Header:=xlYes
   
8.     End With
   
9.     With Sheet3
   
10.         .Cells.Clear
    
11.         Rng.Copy .[B3]
    
12.         
    
13.         '
    
14.         '
    
15.     End With
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# am0251
¥i¬Ý»¡©ú   With ³¯­z¦¡