返回列表 上一主題 發帖

VBA尋找重複

千暉尋

帖子
36 
主題
7 
精華
0 
積分
77 
點名
0  
作業系統
WIN7 
軟體版本
MICROSOFT 
閱讀權限
20 
註冊時間
2015-6-7 
最後登錄
2025-11-9 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2018-9-27 15:07 | 顯示全部帖子
回復  准提部林


準大太厲害啦，原來字典物件輸入的key是字串型態的話，速度可以提昇那麼多!!!

如果 ...
n7822123 發表於 2018-8-31 01:11

3個語法,可看懂2個,唯獨准大的第1個程式碼,我想了好久,針對以下語法
For i = 1 To UBound(Arr)
    T = Arr(i, 1):  U = xD(T):  Arr(i, 1) = ""
    If U > 0 Then Arr(U, 1) = "重覆": xD(T) = -1: U = -1
    If U < 0 Then Arr(i, 1) = "重覆"
    If U = 0 Then xD(T) = i
Next i
還是想不透為何如此就能判斷出重覆與否,那位大大可以幫忙解說一下嗎?

TOP

千暉尋

帖子
36 
主題
7 
精華
0 
積分
77 
點名
0  
作業系統
WIN7 
軟體版本
MICROSOFT 
閱讀權限
20 
註冊時間
2015-6-7 
最後登錄
2025-11-9 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-9-28 16:45 | 顯示全部帖子
回復  千暉尋

U=xD(T) 先取出字典的ITEM值, 若T值還未丟進字典, U 值為0(或"")

U=0  表示尚未掃過的 ...
准提部林 發表於 2018-9-28 10:01

謝謝準大的說明,簡明扼要,我曾試過,第1次出現U值都是0 ,想不通為何,還在鑽牛角尖想說0到底是KEY值還是ITEM值,原來兩者都不是,是根本還沒寫入,一語警醒夢中人!

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題