搜尋序號對應的工作表，並將目標帶回搜尋列中 - Excel程式區

[發問] 搜尋序號對應的工作表，並將目標帶回搜尋列中

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-11-23 08:50 | 顯示全部帖子

回復 1# citizen0923

試試看

Option Explicit
Sub Ex_序號查詢()
Dim D As Object, Sh As Worksheet, Rng As Range, x As Variant
Set D = CreateObject("scripting.dictionary") '字典物件
For Each Sh In Sheets
If Sh.Name <> "查詢" And Sh.Name <> "出貨輸入" Then '目標序號的工作表
Set Rng = Sh.Range("a3")
Do While Rng <> "" '序號="" 時不執行迴圈
x = Rng.Offset(, 1).Value '序號
D(x) = Rng.Resize(, Sh.UsedRange.Columns.Count) '序號所在列的儲存格
Set Rng = Rng.Offset(1) '下一個序號
Loop
End If
Next
Set Sh = Sheets("查詢")
Set Rng = Sh.Range("a5")
Do While Rng.Offset(, 1) <> ""
x = D(Rng.Offset(, 1).Value) '導入 KEY 的項目(內容)
Rng.Resize(, Sh.UsedRange.Columns.Count) = Array(x(1, 1), x(1, 2), x(1, 3), x(1, 5), x(1, 6), x(1, 7), x(1, 8))
Set Rng = Rng.Offset(1)
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-11-24 10:22 | 顯示全部帖子

回復 1# yen956

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。