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

[µo°Ý] ¿z¿ï°ÝÃD

¥i¥Îadvanced filter

criteria range¬Ý¤U­±
2012¦~ 2013¦~
<> 0    = 0
= 0      <> 0
> 0      > 0

TOP

¦^´_ 3# yliu
  1. Sub customfilt()
  2. With ActiveSheet
  3. .Range("B1:C6").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
  4.         ("E1:F4"), CopyToRange:=.Range("G1"), Unique:=False
  5. End With
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# yliu

criteria range§YE1:E4¼g¤U³o­Ó, ª`·N= 0­n³o¼Ë¼g="= 0"
2012¦~ 2013¦~
<> 0    = 0
= 0      <> 0
> 0      > 0

TOP

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