c_c_lai

¦^´_ 5# Ãz¨x¹F¤H

1. Sub Ex()
   
2.     Dim ct As Long
   
3.    
   
4.     With ¤u§@ªí1
   
5.         ct = .[A65536].End(3).Row
   
6.         .Range("A9:C" & ct).Copy .[F9]
   
7.         .Range("F9:H" & ct).Sort Key1:=.[F9], Order1:=xlAscending
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

¤U¸ü (23.16 KB)

2016-12-11 08:25