本帖最後由 PKKO 於 2015-5-6 10:57 編輯
目前使用下方程式碼做比對- For q = 1 To 7
- D.RemoveAll
- For j = 1 To 7
- D.Add rng(j, q), j
- Next
- For j = 1 To y
- r = 0
- For k = 1 To 6
- If D.Exists(Rng2(j, k)) Then r = r + 1
- Next
- If r > 0 Then myArray1(r) = myArray1(r) + 1
- Next
- Next
可以一次比對完畢A陣列與B陣列之中,有幾個值是相同的?
或是任何程式碼可以比上方速度更快,但達到相同效果? |
發表於 2015-5-6 10:55
| 
