ªð¦^¦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 : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD