是否可加速搜尋的速度 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 是否可加速搜尋的速度

返回列表下一主題上一主題發帖

[發問] 是否可加速搜尋的速度

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-6-19 22:48 | 顯示全部帖子

回復 1# adam2010

試試用Find去找
如下：

Public Sub test()
Z = 工作表1.[A65536].End(xlUp).Row
For Each Rng In Range("a2:a" & Z)
Set fng = 工作表2.Cells.Find(Rng, , , , , 2)
If Not fng Is Nothing Then
K1 = fng.Column
kk = 工作表2.Cells(1, fng.Column)
工作表1.Cells(Rng.Row, 4) = 工作表2.Cells(1, fng.Column)
Else
工作表1.Cells(Rng.Row, 4) = "查無此項"
End If
Next
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-6-19 23:18 | 顯示全部帖子

回復 1# adam2010

承上的程式碼中K1和KK變數只是我觀看變數的變化，和程式無關，可以刪除！
另，工作表1和工作表2亦可改回sheet1和sheet2

靜思自在 : 君子立恆志，小人恆立志。

返回列表下一主題上一主題