標題: [發問] 陣列群體一次比對? [打印本頁]

---

作者: PKKO    時間: 2015-5-6 10:55     標題: 陣列群體一次比對?

本帖最後由 PKKO 於 2015-5-6 10:57 編輯

目前使用下方程式碼做比對

1.         For q = 1 To 7
   
2.             D.RemoveAll
   
3.             For j = 1 To 7
   
4.                 D.Add rng(j, q), j
   
5.             Next
   
6.             For j = 1 To y
   
7.                 r = 0
   
8.                 For k = 1 To 6
   
9.                     If D.Exists(Rng2(j, k)) Then r = r + 1
   
10.                 Next
    
11.                 If r > 0 Then myArray1(r) = myArray1(r) + 1
    
12.             Next
    
13.         Next

複製代碼

有沒有更快的方式
可以一次比對完畢A陣列與B陣列之中,有幾個值是相同的?
或是任何程式碼可以比上方速度更快,但達到相同效果?

---

作者: PKKO    時間: 2015-5-6 15:03

忘了輸入開頭有先宣告
'宣告物件
Dim D As Object
Set D = CreateObject("SCRIPTING.DICTIONARY")  '字典物件

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)