[發問] 陣列群體一次比對?

PKKO

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

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

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