如何通过VBA汇总EXCEL工作表中的数据

lzqmsy · 发表于 2011-5-24 21:54

才发现32楼的代码,没有完全按楼主要求的字段顺序排列

lzqmsy · 发表于 2011-5-24 22:59

32楼的老师,用sql语句能否实现楼主要求的排列顺序,期待答案和要学习怎么做的,多谢了!!!

zhang2018 · 发表于 2011-5-25 00:01

原帖由 学生甲1 于 2011-5-24 09:17 发表
不好意思，刚才那一段乱码了，重新再发一遍。
Sub total()

Dim sql$
Start = Timer

With Sheet1
Application.ScreenUpdating = False
.[c3:h12].ClearContents
...

这个速度快些，我试试1万条数据的速度怎样。VBA太厉害了，学习。感谢各位大虾！

zhang2018 · 发表于 2011-5-25 00:07

原帖由 xmyjk 于 2011-5-24 09:54 发表

谢谢分享SQL的，略比数组和字典慢些。如果有兴趣也欢迎把那个三条件的做看看。

期待三个条件的用SQL做一下，感谢。

lzqmsy · 发表于 2011-5-28 15:22

这个也挺快,见附件

7200行数据.rar (65.1 KB, 下载次数: 92) (数据已经增加到7200行了)

wss0002 · 发表于 2011-5-28 17:49

学习了，谢谢各位大侠的无私奉献！

zhang2018 · 发表于 2011-5-30 18:24

原帖由 lzqmsy 于 2011-5-28 15:22 发表
这个也挺快,见附件930833(数据已经增加到7200行了)

这个也不错，用公式计算，更直观。SUMPRODUCT((TFY=$B3)*(TBM=C$2)*TJE)，其中TFY、TBM、TJE分别代表什么意思，代码里也没有啊。
能否解决三个条件的？

zhang2018 · 发表于 2011-5-30 18:26

原帖由 lzqmsy 于 2011-5-28 15:22 发表
这个也挺快,见附件930833(数据已经增加到7200行了)

三个条件的附件见第三页21楼，尝试一下，多学习，多一种方法，谢谢。

lzqmsy · 发表于 2011-5-30 20:55

满足三个条件的,用定义的名称做的,很简单,见附件

zhang2018V同时满足三个条件-修改.rar (11.76 KB, 下载次数: 73)

wcixi · 发表于 2011-6-1 15:42

汇总表位置变化后，程序可能无法得出正确结果。

		自动登录	找回密码
密码			免费注册

[求助] 如何通过VBA汇总EXCEL工作表中的数据