vba 找儲存格位置執行效能請益 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » vba 找儲存格位置執行效能請益

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

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

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2017-3-25 13:59 | 顯示全部帖子

SUB TEST
RNG=[A1].RESIZE(10000,2).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(X))
END SUB

複製代碼

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-3-28 10:03 | 顯示全部帖子

回復 6# ketrddem

我開一個新的excel檔案
複製你的程式直接貼上模組
執行之後一秒之內就跑完囉

PKKO

靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。

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