標題: 問一個"用1維array當多計數器"寫法的問題 [打印本頁]

---

作者: m09903020    時間: 2012-5-7 18:13     標題: 問一個"用1維array當多計數器"寫法的問題

HI 大家好，
     小的想請問若我要用一維陣列共10個elements 當作counter之儲存空間，經過前置步驟(mod)後，分類到10個集合中的其中一個集合element(也就是其中一個counter)就加1
     該怎麼寫?   

     目前大約有15'000，30'000，45'000三種大小的data要丟入(<=這應該不是重點!)

      謝謝各位看完我的問題

---

作者: register313    時間: 2012-5-7 20:57

本帖最後由 register313 於 2012-5-7 21:21 編輯

回復 1# m09903020

題目只說一半
先參考

1. Sub xx()
   
2. Dim Ar(9)
   
3. For I = 1 To [A1]
   
4.   Y = I Mod 10
   
5.   Ar(Y) = Ar(Y) + 1
   
6. Next I
   
7. [D1].Resize(10, 1) = Application.Transpose(Ar)
   
8. End Sub

複製代碼

1. Sub yy()
   
2. Dim Ar(9)
   
3. X = Int([A1] / 10)
   
4. Y = [A1] Mod 10
   
5. For I = 0 To 9
   
6.   Ar(I) = X
   
7.   If I <= Y Then Ar(I) = Ar(I) + 1
   
8. Next I
   
9. Ar(0) = Ar(0) - 1
   
10. [D1].Resize(10, 1) = Application.Transpose(Ar)
    
11. End Sub

複製代碼

[attach]10843[/attach]

---

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