GBKEE

回復 10# PKKO
變通一下,一次建立5個字典物件看看

1. Option Explicit
   
2.   Sub main_flow()
   
3.     Dim xd(0 To 4), i As Long, j As Long, Ok As Integer, E As Variant
   
4.     For i = 0 To 4
   
5.         Set xd(i) = CreateObject("SCRIPTING.DICTIONARY")
   
6.         '1萬個號碼輸入5個物件內
   
7.             For j = 1 To 10000
   
8.                 xd(i)(j) = Empty
   
9.             Next
   
10.     Next
    
11. Ok = 0
    
12. Do While Ok < 5
    
13.     'rng為一個不斷變動的2維陣列
    
14.     '這邊開始比對所有條件,將重複的資料移除掉
    
15. fn:
    
16.      If xd(Ok).Count < 9 Then Ok = Ok + 1
    
17.     For i = 1 To UBound(Rng, 2)
    
18.         For Each E In xd(Ok).KEYS
    
19.                 If Rng(i, E) = True Then xd(Ok).Remove (E)
    
20.                 If xd(Ok).Count < 9 Then GoTo fn
    
21.         Next
    
22.     Next
    
23.     If xd(Ok).Count = 9 Then Call output(xd)
    
24. Loop
    
25. End Sub

複製代碼

PKKO

回復 11# GBKEE


    感謝超版大大,我試試看^_^