[已解决]如何快速汇总

auqfbgjw

如何顺速的将左边的数据按日期，按客户名称进行汇总。我这里只列示几天的数据，实际上一个月下来有几万条数据。请高手帮助一下。谢谢。

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2011-11-16 12:53

1. Sub aa()
   
2.     Dim arr2, arr, arr1(1 To 1000, 1 To 4), x, y, z, k, D, m
   
3.     Set D = CreateObject("Scripting.Dictionary")
   
4.     arr2 = Range("c" & Range("c65536").End(xlUp).Row & ":d" & Range("c65536").End(xlUp).Row)
   
5.     arr = Range("a2:d" & Range("a65536").End(xlUp).Row)
   
6.     Range("F1:I10000").ClearContents
   
7.     For x = 1 To UBound(arr)
   
8.         If D.Exists(arr(x, 2)) Then
   
9.             y = D(arr(x, 2))
   
10.             arr1(y, 1) = arr(x, 1)
    
11.             arr1(y, 2) = arr(x, 2)
    
12.             arr1(y, 3) = arr1(y, 3) + arr(x, 3)
    
13.             arr1(y, 4) = arr1(y, 4) + arr(x, 4)
    
14.         Else
    
15.             k = k + 1
    
16.             D(arr(x, 2)) = k
    
17.             For z = 1 To 4
    
18.                 arr1(k, z) = arr(x, z)
    
19.             Next z
    
20.         End If
    
21.     Next x
    
22.     Range("f3").Resize(D.Count, 4) = arr1
    
23.     m = 3 + D.Count
    
24.     Range("f" & m) = "小计"
    
25.     Range("f" & m & ":g" & m).MergeCells = True
    
26.     Range("h" & m & ":i" & m) = arr2
    
27. End Sub
    
28. 
    

复制代码

新建 Microsoft Office Excel 97-2003 工作表 (3).rar (10.23 KB, 下载次数: 39)

2011-11-16 12:53 上传

点击文件名下载附件

跳转到最佳答案楼层

7507

呵呵，我也想知道，请高手指教

TT147258369

用数据透视表会比较快

macky591

数据汇总index small.rar (11.93 KB, 下载次数: 24)

2011-11-16 11:34 上传

点击文件名下载附件

JLxiangwei

1. Sub aa()
   
2.     Dim arr2, arr, arr1(1 To 1000, 1 To 4), x, y, z, k, D, m
   
3.     Set D = CreateObject("Scripting.Dictionary")
   
4.     arr2 = Range("c" & Range("c65536").End(xlUp).Row & ":d" & Range("c65536").End(xlUp).Row)
   
5.     arr = Range("a2:d" & Range("a65536").End(xlUp).Row)
   
6.     Range("F1:I10000").ClearContents
   
7.     For x = 1 To UBound(arr)
   
8.         If D.Exists(arr(x, 2)) Then
   
9.             y = D(arr(x, 2))
   
10.             arr1(y, 1) = arr(x, 1)
    
11.             arr1(y, 2) = arr(x, 2)
    
12.             arr1(y, 3) = arr1(y, 3) + arr(x, 3)
    
13.             arr1(y, 4) = arr1(y, 4) + arr(x, 4)
    
14.         Else
    
15.             k = k + 1
    
16.             D(arr(x, 2)) = k
    
17.             For z = 1 To 4
    
18.                 arr1(k, z) = arr(x, z)
    
19.             Next z
    
20.         End If
    
21.     Next x
    
22.     Range("f3").Resize(D.Count, 4) = arr1
    
23.     m = 3 + D.Count
    
24.     Range("f" & m) = "小计"
    
25.     Range("f" & m & ":g" & m).MergeCells = True
    
26.     Range("h" & m & ":i" & m) = arr2
    
27. End Sub
    
28. 
    

复制代码

新建 Microsoft Office Excel 97-2003 工作表 (3).rar (10.23 KB, 下载次数: 39)

2011-11-16 12:53 上传

点击文件名下载附件

auqfbgjw

可是我的电脑宏加载不了呀

JLxiangwei

auqfbgjw 发表于 2011-11-16 13:07
可是我的电脑宏加载不了呀

工具—宏—安全性—低

auqfbgjw

列数及行数增加，是不是要重新修改宏代码？？

JLxiangwei

auqfbgjw 发表于 2011-11-16 14:23
列数及行数增加，是不是要重新修改宏代码？？

行数如果增加不受影响，列数增加要适当修改一下

auqfbgjw

楼上的好，水平好高。现在把附件的格式修改了，列出增加了，麻烦您帮我弄一下吧。昨天编出来数据好像一个客户名称表内就汇总一次，日期显示最后一天的时间。实际要求按天累计的。万分感谢。