【求助】使用VBA对现有表格分类汇总并计算

w_cun

您好！
附件表格里的代码是从东方财经抓取的数据过程，是从论坛里面找来的，我想对表格中抓取的数据进行二次处理，希望楼里面的同学能帮忙实现下，谢谢了！！！
抓取的代码是用数组实现的，执行效率挺高的。

getdata.zip (292.41 KB, 下载次数: 0)

2015-10-20 22:40 上传

点击文件名下载附件

算法：

1、类型：从表格A列中获取，取A列单元格左边三位数字，分别为000，001,002,300,600,601,603,200,900，分成六类：1_上证 =（600,601,603开头的，2_深圳（000,001,002，）， 3_创业板（300开头的）， 4_中小板（002开头的）， 5_601系（601开头的）， 6_B股（200,900开头的）

2、总股数：按照M列6种“类型”分别计算相应类型的数量；例如：1_上证=countif（A：A，“600,601,603开头”）；

3、停盘数：按照M列6种“类型”分别计算D列相应类型停牌的数量；例如：1_上证=countif（D：D，“停牌”）；停牌信息在D列；

4、涨停数：按照M列6种“类型”分别计算F列相应类型的数量；例如：1_上证=countif（F：F，“>=9.9%”）；涨跌幅信息在F列；

5、跌停数：按照M列6种“类型”分别计算F列相应类型的数量；例如：1_上证=countif（F：F，“<=-9.9%”）；涨跌幅信息在F列；

6、红盘数：按照M列6种“类型”分别计算F列相应类型的数量；例如：1_上证=countif（F：F，“>0%”）；涨跌幅信息在F列；

7、平盘数：按照M列6种“类型”分别计算F列相应类型的数量；例如：1_上证=countif（F：F，“=0%”）；涨跌幅信息在F列；

8、绿盘数：按照M列6种“类型”分别计算F列相应类型的数量；例如：1_上证=countif（F：F，“< 0%”）；涨跌幅信息在F列；

8、红盘比：按照M列6种“类型”分别计算F列相应类型的数量；例如：1_上证=R列（红盘数）/N列（总股数）；

9、平均PE：按照M列6种“类型”分别计算H列相应类型的数量；例如：1_上证=average（H：H）group by 类型；平均PE信息在H列；

10、换手率>25：按照M列6种“类型”分别计算G列相应类型的数量；例如：1_上证=average（H：H）group by 类型；换手率>25信息在G列；

11、机构参与度>45：按照M列6种“类型”分别计算J列相应类型的数量；例如：1_上证=average（H：H）group by 类型；机构参与度>45信息在J列；

w_cun

自己顶一个吧，现在论坛帖子好像没有以前活跃了。上面的图不清楚，我重新截图；