在一个区域内统计某一项出现的个数

ausedguns

统计

原表很大，网站上传附件有大小的限制，

上传附件有诸多不便，
所以只是截图，
望诸位大神海涵！

问题：
我想统计F列中的项，
在A列1502行到D列1502行这一区域内出现的个数!

自我拙见，实现的方法有二：
一，公式：G1=COUNTIF($A$2:$D$1502,F1)
二，vba
Sub 统计()
arr = Range("f2:f1502")
For h = LBound(arr) To UBound(arr)
arr(h, 1) = Application.CountIf(Range("a2:d1502"), arr(h, 1))
Next h
Range("g2:g1502") = arr
End Sub


但因为原表的数据量很大，
以上两种方法运行起来都很慢，
各位大神有更快的方法吗？？？？？

袁振涛

数组加字典   

ausedguns

袁振涛 发表于 2015-12-3 22:28
数组加字典

能给个代码吗？？？
我不会用字典啊！！！！

袁振涛

哥，我给你编个附件给你写代码啊

ausedguns

袁振涛 发表于 2015-12-3 22:41
哥，我给你编个附件给你写代码啊

根据上面的图示，写个代码很难吗？
好！ 我给你附件！

小花鹿

ausedguns 发表于 2015-12-3 22:53
根据上面的图示，写个代码很难吗？
好！ 我给你附件！

根据上面的图示，写个代码并不难，把图示中的数据输入电子表格中，再根据要求写出代码就行了。

ausedguns

小花鹿 发表于 2015-12-3 23:11
根据上面的图示，写个代码并不难，把图示中的数据输入电子表格中，再根据要求写出代码就行了。

我不是已经给你附件了吗？？！！！

ausedguns

小花鹿 发表于 2015-12-3 23:11
根据上面的图示，写个代码并不难，把图示中的数据输入电子表格中，再根据要求写出代码就行了。

我刚学vba不久，水平很低
我不是很明白，
难道此程序里用到的不是单元格或是数组，
而是要把单元格里的汉字部分一个一个的敲到程序里吗？？

t13564865256

问问题上传必要附件是方便别人回答的。也是方便自己快速得到答案的。互利互助的事情何必藏藏掖掖。没有谁是必须回答你问题的，取决于你的提问技巧。

ausedguns

t13564865256 发表于 2015-12-3 23:43
问问题上传必要附件是方便别人回答的。也是方便自己快速得到答案的。互利互助的事情何必藏藏掖掖。没有谁是 ...

再者我就很纳闷了，
难道这个问题真的就必须要附件吗？？？
原表30多M里面还有公式啥的，
上传附件又不能大于2M
我要是截取一部分公式又要跟着变！
所以我才截的图！
2楼他已经说字典加数组可以加快程序的速度了，
我认为那就照着图示写就可以了！
即使有了附件是不是也得切换到表的界面看引用哪个区域哪个单元格啊？？？
这和看图片有什么区别？
你可以纵观此贴的回复，
看看到底是谁先说话难听的，
再者，你说的很对没有谁必须回答我的问题，
同样你可以选择不回答，
但没必要说话难听：
注意哦！是4楼先说：“哥，我给你编个附件给你写代码啊”这难听的话的哦！
所以我才说话难听的！
哥们我有个毛病：就是不愿要那嗟来之食！