- 帖子
- 45
- 主題
- 1
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 註冊時間
- 2013-4-16
- 最後登錄
- 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
複製代碼 |
|