[發問] 請問 要搜尋 三條件 然後在工作表2 全部列出

mycmyc

請問 要搜尋 C欄 2210 AND E欄是  五金 AND  F欄大於500  
然後在工作表2 全部列出  列如  3列 符合 則列出 2345列出全部 ABCDEFGH 於工作表2
並往下搜尋至沒資料
謝謝你們
日誌.rar (7.13 KB)

下載次數: 8

2012-11-8 22:13

boyao

回復 1# mycmyc


日誌.rar (7.39 KB)

下載次數: 6

2012-11-11 00:39

用進階篩選的方式....

mycmyc

用進階篩選的方式....
好像不行
可以說明白一點嗎
謝謝

boyao

回復 3# mycmyc


於sheet1.Range("L1:S1")建立篩選標題
sheet1.Range("L2:S2")建立篩選的條件(幾項都ok)
再執行"進階篩選執行"
如附件..
日誌.rar (14.15 KB)

下載次數: 6

2012-11-12 15:36

CA199

矮由寫清楚一點給您看
1.要篩的資料選起來
2.篩選/以儲存格值篩選
3.點您要篩選的欄 ~點C欄文字篩選=2210 點E欄文字篩選-五金 點 F攔 文字篩選>500
就全部給您列出來了~~粉簡單吧~~~

Hsieh

回復 1# mycmyc
你要的結果是這樣吧

下載 (15.65 KB)

2012-11-13 15:47

執行以下代碼

1.     Sub ex()
   
2. Dim Rng As Range, MyRng As Range, A As Range
   
3. With 工作表1
   
4. Set MyRng = .[C1]
   
5. .Range("C:C").Replace 2120, "=1/0", xlWhole
   
6. Set Rng = .Range("C:C").SpecialCells(xlCellTypeFormulas, 16)
   
7. Rng.Value = 2120
   
8. For Each ar In Rng.Areas
   
9.     For Each A In ar
   
10.       If A.Offset(, 2) = "五金" And A.Offset(, 4) > 500 Then
    
11.       ad = .Range(.[A1], A.Offset(, -2)).Address
    
12.       k = Evaluate("Lookup(2,1/(" & ad & "),row(" & ad & "))")
    
13.          Set MyRng = Union(MyRng, .Range(.Cells(k, 3), A.End(xlDown)))
    
14.          Exit For
    
15.       End If
    
16.     Next
    
17. Next
    
18. If Not MyRng Is Nothing Then MyRng.EntireRow.Copy 工作表2.[A1]
    
19. End With
    
20. End Sub

複製代碼

mycmyc

謝謝大家
我吸收看看
不好意思