各位大大好:
我目前在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

http://i.imgur.com/E5HWGbp.png利用WorksheetFunction使用工作表函數http://i.imgur.com/prmRk7X.png 那麼改這樣試試看

可以了!感謝你