Hsieh

回復 1# ansonwen0107

1. Sub searchdata()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each sh In Sheets(Array("a", "b"))
   
4.    With sh
   
5.      For Each a In .Range(.[B2], .[B65536].End(xlUp))
   
6.         d(a.Value) = Array(a.Offset(, -1).Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
   
7.      Next
   
8.     End With
   
9. Next
   
10. With Sheets("尋找")
    
11.    For Each a In .Range(.[A2], .[A65536].End(xlUp))
    
12.       a.Offset(, 1).Resize(, 3) = ""
    
13.       a.Offset(, 1).Resize(, 3) = d(a.Value)
    
14.    Next
    
15. End With
    
16. End Sub

複製代碼