[發問] vba 找儲存格位置執行效能請益

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2024-12-3

2^#

發表於 2017-3-24 23:45 | 顯示全部帖子

補充：
開新的工作簿
插入模組
以下模組自動填入一到一百萬
Sub test()
For i = 1 To 1000000
Sheets("工作表1").Cells(i, 1) = i + 1
Next
End Sub

查找方法一：直接使用內建函教，需時一秒
Sub find1()
t = Timer
If Sheets("工作表1").Range("a:a").Find(what:="987267", LookIn:=xlValues).Rows > 0 Then
MsgBox Timer - t
End If
End Sub

方法二：迴圈填入陣列，天哪，須時十一秒
Sub find2()
ReDim s(1 To 1000000)
t = Timer
For i = 1 To 1000000
s(i) = Sheets("工作表1").Cells(i, 1)
If s(i) = "987267" Then
MsgBox Timer - t
End If
Next
End Sub

懇求第三種方法、第四種方法、第五種方法，小弟就是想找那一種方法效能最高

EXCEL VBA新手，請前輩多多指教

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2024-12-3

3^#

發表於 2017-3-27 22:39 | 顯示全部帖子

太感謝二位大哥的解說

小弟馬上試試看

EXCEL VBA新手，請前輩多多指教

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2024-12-3

4^#

發表於 2017-3-27 22:50 | 顯示全部帖子

回復 3# PKKO

Sub find3()
t = Timer
Rng = Sheets("工作表1").Cells(1, 1).Resize(1000000, 1).Value '10000的部分可自行變更列數
Set D = CreateObject("SCRIPTING.DICTIONARY") '字典物件

For i = 1 To UBound(Rng)
D(CStr(Rng(i, 1))) = i
Next
'這邊看你要找甚麼資料,假設是x,就會出現x是第幾列了

MsgBox D(CStr("987267"))

End Sub

執行後，就一直跑，然後無法停止了

EXCEL VBA新手，請前輩多多指教

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2024-12-3

5^#

發表於 2017-3-28 11:45 | 顯示全部帖子

回復 8# PKKO

感謝。我晚上再來試一次

EXCEL VBA新手，請前輩多多指教