麻辣家族討論版版 » Excelㄧ般區 » 請問要搜尋三條件然後在工作表2 全部列出

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-11-8 22:15 | 只看該作者

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

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

日誌.rar (7.13 KB)

樓主熱帖

收藏

HI

中學生 Rank: 2

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

7^#

發表於 2012-11-16 18:39 | 只看該作者

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

HI

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-11-13 15:48 | 只看該作者

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

執行以下代碼

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

複製代碼

學海無涯_不恥下問

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 12
點名: 0
作業系統: window7
軟體版本: office2010
閱讀權限: 10
性別: 女
來自: taipei
註冊時間: 2012-11-7
最後登錄: 2013-9-15

5^#

發表於 2012-11-12 15:57 | 只看該作者

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

行動是最踏實的幸福

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

4^#

發表於 2012-11-12 15:36 | 只看該作者

回復 3# mycmyc

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

日誌.rar (14.15 KB)

boyao

中學生 Rank: 2

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

3^#

發表於 2012-11-11 16:59 | 只看該作者

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

HI

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

2^#

發表於 2012-11-11 00:39 | 只看該作者

回復 1# mycmyc

日誌.rar (7.39 KB)

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

boyao

靜思自在 : 站在半路，比走到目標更辛苦。

返回列表下一主題上一主題