°a¤ªºµ

¦^´_ 2# BV7BW

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O§A­nªº 2­Óµ²ªG ·PÁÂ

1. Public Sub ±q·s±Æ¦C½m²ß()
   
2. Application.ScreenUpdating = False
   
3. [E65535:G3].ClearContents
   
4. 
   
5. For X = 3 To Cells(3, 3).End(4).Row
   
6.     Cells(X, "E") = Cells(X, "A")
   
7.     Cells(X, "F") = Cells(X, "B")
   
8.     Cells(X, "G") = Mid(Cells(X, "C"), 1, 2)
   
9. Next X
   
10. Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2
    
11. 
    
12. For X = 3 To Cells(3, 3).End(4).Row
    
13.     Cells(X, "G") = "A" & X - 2
    
14. Next X
    
15. Range([¤u§@ªí4!A65535].End(3), [¤u§@ªí4!J2]).Sort [¤u§@ªí4!F2], 1, Key2:=[¤u§@ªí4!B2], Header:=2
    
16. Application.ScreenUpdating = True
    
17. End Sub

½Æ»s¥N½X

°a¤ªºµ

¦^´_ 7# BV7BW
©êºp ¨Sª`·N¬Ý
§â Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2
§ï¦¨ Range([E65535].End(3), [G3]).Sort [G3], 1, Header:=2 ´N¥i¥H¤F
¶¶«K¬Ý¤@¤U ¤u§@ªí4 ¬O¤£¬O§A­nªºµ²ªG ·PÁÂ

°a¤ªºµ

¦^´_ 9# BV7BW

§â Range([¤u§@ªí4!A65535].End(3), [¤u§@ªí4!J2]).Sort [¤u§@ªí4!F2], 1, Key2:=[¤u§@ªí4!B2], Header:=2 ³o¦æ²¾¥X¨Ó

¥t¥~¥[¤@­Ó sub ´N¥i¥H¤F

°a¤ªºµ

¦^´_ 28# BV7BW

¬Æ»òºÙ¸¹¿ù¶Ã?