作者markbaseball (Mark)
看板Visual_Basic
标题[VBA ] 计算个数
时间Fri Mar 4 23:59:21 2016
各位大大好:
我目前在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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1457107164.A.A16.html
2F：→ MashiroX421: 利用WorksheetFunction使用工作表函数 03/05 00:57
※ 编辑: markbaseball (163.22.18.73), 03/05/2016 10:03:08
※ 编辑: markbaseball (163.22.18.73), 03/05/2016 10:07:25
4F：→ markbaseball: 可以了!感谢你 03/05 22:46