返回列表 上一主題 發帖

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

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-11-13 15:48 | 顯示全部帖子
回復 1# mycmyc
你要的結果是這樣吧

執行以下代碼
  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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題