[發問] 搜尋代號後，尋找對應列數的儲存格

帖子: 69
主題: 16
精華: 0
積分: 84
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 20
註冊時間: 2016-3-20
最後登錄: 2024-4-24

論壇贊助勳章

2^#

發表於 2021-1-25 13:41 | 顯示全部帖子

回復 7# hcm19522

感謝大大提供函數的解法感謝!

帖子: 69
主題: 16
精華: 0
積分: 84
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 20
註冊時間: 2016-3-20
最後登錄: 2024-4-24

論壇贊助勳章

3^#

發表於 2021-1-25 16:19 | 顯示全部帖子

回復 abc9gad2016

請測試看看，謝謝。

Sub tt2()
Set xD = CreateObject("Scripting.Dictionary" ...
samwang 發表於 2021-1-23 10:31

S大不好意思，測試後發現會少列到一項，如圖

因對程式較不熟不清楚要如何修改謝謝

帖子: 69
主題: 16
精華: 0
積分: 84
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 20
註冊時間: 2016-3-20
最後登錄: 2024-4-24

論壇贊助勳章

4^#

發表於 2021-1-25 16:33 | 顯示全部帖子

本帖最後由 abc9gad2016 於 2021-1-25 16:34 編輯

回復 2# 軒云熊

謝大大~測試成功
另外想請教若表格中多了一些無關的資訊，要改由F7:X24這個範圍尋找F6開始的對應值的話

應該要如何修改程式呢謝謝

帖子: 69
主題: 16
精華: 0
積分: 84
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 20
註冊時間: 2016-3-20
最後登錄: 2024-4-24

論壇贊助勳章

5^#

發表於 2021-1-26 09:43 | 顯示全部帖子

本帖最後由 abc9gad2016 於 2021-1-26 09:46 編輯

回復 13# 軒云熊

還是相當感謝大大分享~

帖子: 69
主題: 16
精華: 0
積分: 84
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 20
註冊時間: 2016-3-20
最後登錄: 2024-4-24

論壇贊助勳章

6^#

發表於 2021-1-26 09:47 | 顯示全部帖子

回復 abc9gad2016

不好意思，少算1欄，請再測試看看，謝謝
Sub tt2()
Set xD = CreateObject("Sc ...
samwang 發表於 2021-1-25 17:41

感謝大大，昨晚用您的程式碼後稍做修改有成功弄成我要的樣子謝謝
Sub 搜尋()
'
' 搜尋巨集
' 搜尋
''
Worksheets("尋找").Range("B2:V2").ClearContents
Set xD = CreateObject("Scripting.Dictionary")
Sheets("尋找").[F6:X6] = ""
T = Sheets("尋找").[A2]
xD(T & "") = ""
Arr = Range([工作表1!X6], [工作表1!A65536].End(3))
For i = 2 To UBound(Arr)
N = xD(Arr(i, 1) & ""): If N = 0 Then GoTo 99
For J = 6 To 24
If Arr(i, J) <> "" Then: M = M + 1: Arr(1, M) = Arr(1, J)
Next
99: Next
If M > 0 Then Sheets("尋找").[B2].Resize(1, M) = Arr
End Sub