[µo°Ý] ½Ð±ÐÃö©óvba¶i¶¥¿z¿ï

sto3688

Columns("A:P").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "T1:T250"), CopyToRange:=Columns("V:AK"), Unique:=False

½Ð±Ð¤W­±ªº T1:T250 ¦pªG¬OT1¬O©T©w,T250¬OÅܼÆ,¸Ó¦p¦ó­×§ï?

kimbal

Columns("A").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "T1:T250"), Cop ...
sto3688 µoªí©ó 2013-3-8 13:24

¥D­n¬O¬Ý¬Ý§A·Q¦p¦óÅÜ

1. rng = "T250"
   
2.     Columns("A:P").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
   
3.         "T1:" & rng), CopyToRange:=Columns("V:AK"), Unique:=False

½Æ»s¥N½X

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

sto3688

·PÁ¨â¦ì¤j¤j¦^´_,¦A¸Õ¸ÕÅo~