[已解决]数据汇总VBA求助

006130

有个数据汇总问题不懂，有谁可以帮帮我，谢谢！

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-30 17:47

附件： 数据汇总-sunjing.rar (9.82 KB, 下载次数: 63)

2012-1-30 17:47 上传

点击文件名下载附件

跳转到最佳答案楼层

sunjing-zxl

简单，稍稍等一会

006130

sunjing-zxl 发表于 2012-1-30 17:37
简单，稍稍等一会

谢谢，我现在是列举的一个条件，如何符合多个条件是不是也可以这样，

sunjing-zxl

1. Sub hz()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Dim arr
   
4.     Dim i As Long
   
5.     arr = Range("A2:B" & [A65536].End(xlUp).Row)
   
6.     For i = 1 To UBound(arr)
   
7.         d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
   
8.     Next i
   
9.     With Sheets("A")
   
10.         .Range("A2:B" & .[A65536].End(xlUp).Row + 1).ClearContents
    
11.         .Range("A2").Resize(d.Count) = Application.WorksheetFunction.Transpose(d.keys)
    
12.         .Range("B2").Resize(d.Count) = Application.WorksheetFunction.Transpose(d.items)
    
13.     End With
    
14.     MsgBox "统计完成"
    
15. End Sub
    

复制代码

006130

006130 发表于 2012-1-30 17:38
谢谢，我现在是列举的一个条件，如何符合多个条件是不是也可以这样，

为什么我每次只能找到对应的编号的最后一个值，，关键点在哪里

sunjing-zxl

附件： 数据汇总-sunjing.rar (9.82 KB, 下载次数: 63)

2012-1-30 17:47 上传

点击文件名下载附件

ztccsj

sunjing-zxl 发表于 2012-1-30 17:47
附件：

不错，必须支持            字典