- ©«¤l
- 45
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-4-16
- ³Ì«áµn¿ý
- 2013-12-30
|
¦^´_ 3# yliu - Sub customfilt()
- With ActiveSheet
- .Range("B1:C6").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
- ("E1:F4"), CopyToRange:=.Range("G1"), Unique:=False
- End With
- End Sub
½Æ»s¥N½X |
|