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

home1913

進階篩選.rar (21.8 KB)

下載次數: 11

2013-6-17 18:31

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

home1913

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

c_c_lai

回復 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

複製代碼

下載 (35.9 KB)

2013-6-19 13:07

softsadwind

回復 2# home1913

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

下載 (400.4 KB)

2013-6-19 16:32

home1913

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

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

softsadwind

回復 5# home1913

進階篩選.rar (27.7 KB)

下載次數: 4

2013-6-20 09:32

繞了一圈...應該有更精簡的方式

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

複製代碼