[發問] 如何使用陣列+字典物件比對資料的時候用LIKE語法?

PKKO

不好意思,麻煩各位大大了,我覺得TEST_1的程式碼執行速度較快,但我只會用TEST_2的方式,有大大可以教學一下嗎?

1. Sub TEST_1()
   
2. '這是原本的程式碼
   
3. [B:B].Clear: [J1] = ""
   
4. xRow = 10
   
5. Arr = [A1].Resize(xRow)
   
6. Brr = [C1].Resize(xRow)
   
7. Set xD = CreateObject("Scripting.Dictionary")
   
8. For i = 1 To UBound(Brr)
   
9.     xD(Brr(i, 1)) = xD(Brr(i, 1)) + 1
   
10. Next
    
11. For i = 1 To UBound(Arr)
    
12.     Arr(i, 1) = xD(Arr(i, 1))
    
13. Next
    
14. [B1].Resize(xRow) = Arr
    
15. End Sub
    
16. 
    
17. 
    
18. Sub TEST_2()
    
19. '我想將TEST_1模組的程式碼改成用LIKE的方式,不曉得該怎麼做???
    
20. 
    
21. 
    
22. '我只會下列這種方式
    
23. xRow = 10
    
24. Arr = [A1].Resize(xRow)
    
25. Brr = [C1].Resize(xRow)
    
26. Dim AA
    
27. ReDim AA(1 To 10, 1 To 1)
    
28. For i = 1 To UBound(Arr)
    
29.     M = 0
    
30.     For J = 1 To UBound(Brr)
    
31.         If Brr(J, 1) Like "*" & Arr(i, 1) & "*" Then
    
32.             M = M + 1
    
33.             AA(i, 1) = M
    
34.         End If
    
35.     Next
    
36. Next
    
37. [B1].Resize(xRow) = AA
    
38. End Sub

複製代碼

PKKO

回復 2# GBKEE


    感謝超版大大的回覆,但您的方式似乎與我的TEST_2模組程式碼相同,我想要學習的部分是透過陣列+字典物件的方式

原因是速度上似乎比較快

PKKO

回復  PKKO


Sub TEST_1()

.Clear: [J1] = ""
xRow = 10
arr = [A1].Resize(xRow)
Brr = [C1].R ...
ikboy 發表於 2015-9-16 09:42

感謝ikboy大大的回覆,您的INSTR方式小弟學習了

但想請教一下

您的方式雖有用到字典+陣列

但您跟我的一樣都是跑了雙重迴圈,假設2萬*2萬就會太久了

我實際將您的程式碼與我的測試,跑一萬次迴圈發現

您的程式碼速度與我的相差不到10 %

想請問有跑單迴圈的方式(類似我的TEST_1的程式碼)

可以加快比對速度嗎?

PKKO

回復 7# 准提部林


    感謝准提部林大大的回覆,讓我學習了您的思考邏輯方式,以及不同的程式撰寫方式!

PKKO

回復 9# stillfish00


    感謝stillfish00大大,一路走來指導許多程式碼

這次您又幫了我大忙了,一直在思考怎樣可以讓程式跑得更快

您的程式碼速度快且撰寫快速,感恩哦~

PKKO

回復 13# 准提部林


    原來如此,感謝大大!

您提供的程式碼,我都有用到哦!!

但撰寫的時候總是要思考一下,還無法很順暢,所以都會回來偷看大大您寫的程式碼^_^