ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ï¥ÎªÌ©w¸qªº¦r¦ê±Æ§Ç

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-12-11 08:25 ½s¿è

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD