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

[µo°Ý] ¦h±ø¥ó¶i¶¥¿z¿ï§Ö³t¤èªk

¦^´_ 2# home1913
³o¬O¤£¬O§A·Q­nªºµª®×¡G
  1. Sub Ex()
  2.     Range("A:D").Select
  3.     Sheets("®w¦s").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
  4.         Range("I1:J2"), CopyToRange:=Range("L1"), Unique:=False
  5. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD