急求VBA，数据按日期分类后如何分别计算需要的值

cpxbc

如图所示，我有几十万个数据要计算，我已经在论坛里找了一些宏运行的代码，将一大堆的TXT文档转换成EXCEL，然后再合并数据，如图又按照日期分类汇总。现在的这个问题真的难倒我了，现在是要求把每一天的数据单独计算，其中C,D两列是原始数据，E列就是D-C得到的结果，现在要计算E和G列。（隐藏的是无用列，可以删除）要统计每一天中E列里面的数字分别大于0 和小于等于0的数值分别多少个，然后还要计算大于0的数字在G列的对应值之和，和小于等于0 的数字在G列的对应值之和。譬如图中的1990年12月24日汇总这一天，E列中小于等于0的数字一共2个，对应数量是之和是100+100=200，大于等于零的数字一共2个，对应数量之和是1700+1100=2800，然后分别填在后面吧。（不填写在后面也可以，关键是我要每天的最终的4个数据结果，当然日期仍然是要对应上的。因为最后的数据还要日子对应的，其他的都是中间值了）。示例图如下所示，文件实在太大，我截取了一部分上传，望哪位大师帮我解答一下。数据实在太大太多了，不用宏我恐怕要做一个月。新手，实在是不知如何解决

上传附件.rar (475 KB, 下载次数: 2)

2018-11-29 11:03 上传

点击文件名下载附件