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

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

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

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¦ó­×§ï?

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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD