返回列表 上一主題 發帖

[發問] 多條件進階篩選快速方法

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
1# 跳轉到 »
發表於 2013-6-19 16:33 | 顯示全部帖子
回復 2# home1913

你看看 我把你準則下的sku 都要滿足loc 包含1 和 Avail 大於0這兩個條件 我是直接用進階篩選
123.gif
50 字節以內
不支持自定義 Discuz! 代碼

TOP

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
2#
發表於 2013-6-20 09:33 | 顯示全部帖子
回復 5# home1913

進階篩選.rar (27.7 KB)
繞了一圈...應該有更精簡的方式
  1. Private Sub CommandButton1_Click()
  2.     Range("L:O").Clear
  3.     Range("G2:H2").Copy
  4.     Range([G3], [F65535].End(xlUp).Offset(, 2)).Select
  5.     ActiveSheet.Paste
  6.         Columns("A:D").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
  7.         [F1], [H65535].End(xlUp)), CopytoRange:=Range("L1:O1"), Unique:=False
  8.     Range([G3], [F65535].End(xlUp).Offset(, 2)).Clear
  9. End Sub
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題