[VBA ] 計算個數

[markbaseball (Mark)]

各位大大好:
       我目前在E3~E169450的數字分別是1~845。我現在想算出每個數字各幾個
       想請各位幫忙看我的程式問題出在哪? 謝謝各位
      Sub abc()
For aaa = 3 To 848
Cells(aaa, 8).Value = Application.CountIf(Sheet1.Range("E3:E169450"), "aaa-2")
Next
End Sub

                 E
           補充  1
                 1
                 1
                 2
                 2

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 163.22.18.73
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1457107164.A.A16.html
→ MashiroX421: http://i.imgur.com/E5HWGbp.png
→ MashiroX421: 利用WorksheetFunction使用工作表函數
※ 編輯: markbaseball (163.22.18.73), 03/05/2016 10:03:08
※ 編輯: markbaseball (163.22.18.73), 03/05/2016 10:07:25
→ MashiroX421: http://i.imgur.com/prmRk7X.png  那麼改這樣試試看
→ markbaseball: 可以了!感謝你