jeff5424

回復 10# Hsieh


    感謝Hsieh 大大用心及耐心的協助,經計算後累計數次無誤,
但我匯入資料後發現,總編號168號,值如果出現1累計資料會出現錯誤
(如附件所示)   請Hsieh 大大再幫忙一下…..謝謝

Hsieh

回復 11# jeff5424

1. Function AllCount(Sh1$, Sh2$, r%, k%, cnt%)
   
2. Application.Volatile
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Set d1 = CreateObject("Scripting.Dictionary")
   
5. i = Sheets(Sh1).Index
   
6. Do Until i > Sheets(Sh2).Index
   
7. With Sheets(i)
   
8.    For Each a In .Range(.Cells(k, 2), .Cells(k, 2).End(xlToRight))
   
9.      If .Cells(r, a.Column) = 1 Then d(a.Value) = ""
   
10.    Next
    
11. End With
    
12. i = i + 1
    
13. Loop
    
14. j = 1: p = 1
    
15. Do
    
16. Do Until Application.Small(d.keys, j + 1) - Application.Small(d.keys, j) <> 1
    
17.      p = p + 1: j = j + 1
    
18.      If j = d.Count Then Exit Do
    
19. Loop
    
20. d1(p) = d1(p) + 1: p = 1
    
21. j = j + 1
    
22. If j = d.Count Then d1(p) = d1(p) + 1: Exit Do
    
23. Loop Until j > d.Count
    
24. AllCount = d1(cnt)
    
25. End Function

複製代碼

jeff5424

回復 10# Hsieh


    感謝Hsieh 大大多次協助,經計算後累計數次無誤,
我匯入2002~2011資料,全部ok.....
最後非常非常感謝你的協助...謝謝