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

ljx63426

原帖由 xmyjk 于 2011-5-22 18:32 发表
Option Explicit
Sub samesum()
Dim i As Long, n As Long, arr(), j As Long
Dim d, t As Single

t = Timer
Set d = CreateObject("Scripting.Dictionary")
n = Sheet2.[a65536].End(xlUp).Row
arr = Shee ...

请7楼LZ注释一下代码的意思，好吗？

xmyjk

原帖由 ljx63426 于 2011-5-23 00:04 发表

请7楼LZ注释一下代码的意思，好吗？

看看蓝桥玄霜老师的这个贴：http://club.excelhome.net/viewth ... 8154&highlight=
字典的东西如果不清楚基本的知识，讲起来还比较费力。

zhang2018

xmyjk您好，一定常来逛，刚开始学习VBA。还有两个问题请教：
第一个：
字典法查询有一个问题，如果Sheet2工作表列有变化，则统计不出来。而SQL方法无论Sheet2列数如何增加，都可以统计出来，但是3万多行的数据，30分钟还未出来结果，速度太慢了。字典方法如何也能像SQL方法一样无论如何增减都不影响统计结果。
第二个：
见附件，第一次上传数据只是二维（即满足二个条件），如何统计同时满足三个条件的数据汇总。感谢您设置好后上传，我与第一个编程过程的设置进行比较，慢慢学习研究。
非常感谢！！！

[ 本帖最后由 zhang2018 于 2011-5-23 15:10 编辑 ]

xmyjk

原帖由 zhang2018 于 2011-5-23 12:03 发表
xmyjk您好，一定常来逛，刚开始学习VBA。还有两个问题请教：
第一个：
字典法查询有一个问题，如果Sheet2工作表列有变化，则统计不出来。而SQL方法无论Sheet2列数如何增加，都可以统计出来，但是3万多行的数据，30 ...

请把字典法问题一的附件发上来，字典法的我之前做过测试是可以。
3万多你可以精简个几千条上来，应该还是传得上来的。

问题二应该可以实现，今天比较忙，晚点看。

[ 本帖最后由 xmyjk 于 2011-5-23 14:10 编辑 ]

zhang2018

好的，感谢，已经上传。您先忙。

xmyjk

原帖由 zhang2018 于 2011-5-23 14:13 发表
好的，感谢，已经上传。您先忙。

呃，看了你的zhang2018-第一次上传的附件.rar (10.77 KB) ，传错了吧，那个事SQL的，不是你说的字典法出错的那个。。。
麻烦再传下。

还是两个附件我看晕了。。麻烦解释下。。。

[ 本帖最后由 xmyjk 于 2011-5-23 14:37 编辑 ]

xmyjk

你看下附件，我手工复制增加到了一千多条数据，都没有问题。

然后问题二的，你三条件是怎么个条件法，麻烦上个附件吧，才知道具体形态。

zhang2018

xmyjk您好，已更新附件。字典法如果列数有变化，比如金额在D列时就无法汇总金额，仍是汇总C列。

xmyjk

原帖由 zhang2018 于 2011-5-23 15:15 发表
xmyjk您好，已更新附件。字典法如果列数有变化，比如金额在D列时就无法汇总金额，仍是汇总C列。

改好了，试看看附件。

zhang2018

通过对比昨天和今天两个代码，如果列数变化，字典法我知道如何修改代码了。我个人心得，通过比较与实例分析学习VB效果要好。