標題: 問題!!搜尋值回傳 [打印本頁]

---

作者: kevin21522886    時間: 2014-2-27 15:48     標題: 問題!!搜尋值回傳

各位好，近期在用Vlookup得函數功能，但礙於對EXCELL瞭解不夠深入，僅能做簡單用法，困難點就卡住了~~還請高手幫我解解這題!! 感謝!!

需求: 在SHEET1  的A1裡希望 回傳AAA最新版的版次回來，所以必須由最後頁次開始搜尋，當遇到第一個AAA時，回傳其左右兩欄的數值填回SHEET1裡。 其他名字一樣以此類推。
          P.S. 每一頁皆是一批更新，所以頁次越後面版本越新。每一批也不一定是全部都更新。

[attach]17616[/attach]

---

作者: yen956    時間: 2014-2-27 18:48

本帖最後由 yen956 於 2014-2-27 18:52 編輯

回復 1# kevin21522886
試試看:

1. Option Explicit
   
2. 
   
3. Sub 最新版()
   
4.     Dim x, y As Worksheet
   
5.     Dim cnt, i As Integer
   
6.     Dim Rng, FindCell As Range
   
7.     Dim FindStr As String
   
8.     Set x = Sheets(1)
   
9.     cnt = ThisWorkbook.Sheets.Count
   
10.     For Each Rng In x.[B2].Resize(x.[B2].End(xlDown).Row - 1, 1)
    
11.         For i = cnt To 2 Step -1
    
12.             Set y = Sheets(i)
    
13.             y.Activate
    
14.             Set FindCell = y.Cells.Find(What:=Rng.Value, After:=ActiveCell, _
    
15.                     LookIn:=xlFormulas, LookAt:=xlPart, _
    
16.                     SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    
17.                     MatchCase:=False, MatchByte:=False, SearchFormat:=False)
    
18.             If Not FindCell Is Nothing Then
    
19.                Rng.Offset(0, -1) = FindCell.Offset(0, -1)
    
20.                Rng.Offset(0, 1) = FindCell.Offset(0, 1)
    
21.                Exit For
    
22.             End If
    
23.         Next
    
24.     Next
    
25. End Sub

複製代碼

---

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