GBKEE

¦^´_ 1# sto3688

1. Option Explicit
   
2. Sub EX()
   
3.     Dim Rng As Range
   
4.     '*** CriteriaRange ·Ç«h½d³ò  ****
   
5.     '³æÄ檺·Ç«h
   
6.     Set Rng = Range("T1", Range("T1").End(xlDown))  ' xlDown  ¦V¤U
   
7.     '¦hÄ檺·Ç«h  (³sÄò½d³ò)
   
8.     'Set Rng = Range("T1").CurrentRegion
   
9.     'CurrentRegion ÄÝ©Ê ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥Ø«eªº°Ï°ì¡C¥Ø«e°Ï°ì¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò¡C°ßŪ¡C
   
10.     Columns("A:P").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Rng, CopyToRange:=Columns("V:AK"), Unique:=False
    
11. End Sub

½Æ»s¥N½X