標題: [發問] 多條件進階篩選快速方法 [打印本頁]

---

作者: home1913    時間: 2013-6-17 18:36     標題: 多條件進階篩選快速方法

[attach]15258[/attach]

付檔中有2頁面，一為庫存頁面，另一為進階篩選條件及結果，
目前想使用巨集跑出結果，偏偏卡在第一步條件sku裡，每次sku皆會不同格數，
也無法將第二步條件一併使用，所以就分了二段，請教是否有方法可以克服第一步條件，
及直接加入第二步條件
感謝！

---

作者: home1913    時間: 2013-6-19 09:19

麻煩各位前輩教教我這題該如何解~

---

作者: c_c_lai    時間: 2013-6-19 13:07

回復 2# home1913
這是不是你想要的答案：

1. Sub Ex()
   
2.     Range("A:D").Select
   
3.     Sheets("庫存").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
   
4.         Range("I1:J2"), CopyToRange:=Range("L1"), Unique:=False
   
5. End Sub

複製代碼

[attach]15260[/attach]

---

作者: softsadwind    時間: 2013-6-19 16:33

回復 2# home1913

你看看 我把你準則下的sku 都要滿足loc 包含1 和 Avail 大於0這兩個條件 我是直接用進階篩選
[attach]15262[/attach]

---

作者: home1913    時間: 2013-6-19 18:33

那我想問說下面紅字部份要如何修改選取格子內有東西的範圍嗎?
因為每次Sku條件皆不同

Range("E1:H1").Select
Sheets("庫存").Columns("A").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:A39"), CopyToRange:=Range("E1:H1"), Unique:= _

---

作者: softsadwind    時間: 2013-6-20 09:33

回復 5# home1913

[attach]15267[/attach]
繞了一圈...應該有更精簡的方式

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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)