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

xmyjk

原帖由 zhang2018 于 2011-5-23 15:58 发表
通过对比昨天和今天两个代码，如果列数变化，字典法我知道如何修改代码了。我个人心得，通过比较与实例分析学习VB效果要好。

呵呵，实践出真知，挺好的 ，三个条件的，晚点帮你看就是。

zhang2018

同时满足三个条件的数据我进行了修改，这样表达会更清晰明白，见附件。

cnwall

等好的结果。

xmyjk

1. Option Explicit
   
2. Sub samesum()
   
3. Dim i As Long, n As Long, arr(), j As Long
   
4. Dim d, t As Single
   
5. 
   
6. t = Timer
   
7. Sheet1.[c4:r7].ClearContents
   
8. 
   
9. Set d = CreateObject("Scripting.Dictionary")
   
10. n = Sheet2.[a65536].End(xlUp).Row
    
11. arr = Sheet2.Range("a2:d" & n)
    
12. 
    
13. For i = 1 To UBound(arr)
    
14.     d(arr(i, 1) & arr(i, 2) & arr(i, 3)) = d(arr(i, 1) & arr(i, 2) & arr(i, 3)) + arr(i, 4)
    
15. Next
    
16. 
    
17. Erase arr
    
18. arr = Sheet1.Range(Sheet1.Cells(2, 2), Sheet1.Cells(Sheet1.[B65536].End(3).Row, Sheet1.[iv3].End(xlToLeft).Column))
    
19. 
    
20. For i = 1 To UBound(arr, 1) - 2
    
21.     For j = 1 To UBound(arr, 2) - 1
    
22.        arr(i + 2, j + 1) = d(arr(i + 2, 1) & arr(1, 4 * Int((j - 1) / 4) + 2) & arr(2, j + 1))
    
23.     Next
    
24. Next
    
25. 
    
26. Sheet1.[b2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    
27. Erase arr
    
28. Set d = Nothing
    
29. 
    
30. MsgBox Timer - t & "秒"
    
31. End Sub

复制代码

xmyjk

见附件，还好你每个部门都是P0-P3，不然还要另想办法。
验证了下，应该没错。

terqm

原帖由 xmyjk 于 2011-5-22 17:59 发表
用SQL作的，你看看大数据量如何，估计还是比较一般，要快还是要字典和数组，有空再写。excel稍后Sub total()
Dim mxsm As String, bmsm As String, t As Single

t = Timer
With Sheet1
Application.ScreenUpda ...

其实用SQL也不会慢多小。。。。。你的SQL走弯路了。      
Sql = "TRANSFORM Sum(金额) AS 金额之总计 SELECT 明细说明 FROM [Sheet2$] GROUP BY 明细说明 PIVOT 部门说明"

xingjianli1985

学习了,,我也想到用字典 只是转换那的那种格式比较麻烦 没有想到可以通过关键字查找项.厉害

xmyjk

原帖由 terqm 于 2011-5-23 21:56 发表

其实用SQL也不会慢多小。。。。。你的SQL走弯路了。      
Sql = "TRANSFORM Sum(金额) AS 金额之总计 SELECT 明细说明 FROM [Sheet2$] GROUP BY 明细说明 PIVOT 部门说明"

SQL刚学，不是很懂,特别是TRANSFORM函数，所以才报了这次SQL的培训班，谢谢指引。

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

zhang2018

原帖由 xmyjk 于 2011-5-23 21:21 发表
见附件，还好你每个部门都是P0-P3，不然还要另想办法。
验证了下，应该没错。

太感谢了，其实这是一个模版，稍作修改可以满足很多需求。先下载下来，慢慢研究代码。

lpj11834abc

下载学习学习 谢谢