[已解决]汇总数据(数量与金额）

张雄友 · 发表于 2014-12-2 18:23

本帖最后由张雄友于 2014-12-2 21:29 编辑

汇总数据。

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-12-2 19:06

张雄友发表于 2014-12-2 19:01
不好意思，有个小小的要求。

下次可否一次提出要求哈

335512-VBA-字典-汇总不同工作表数据-2.rar (25.82 KB, 下载次数: 35)

爱疯 · 发表于 2014-12-2 18:37

Sub 按钮1_Click()
Dim A, B, je, sl, n, i
Sheets(1).Select
A = Range("a1").CurrentRegion
Set je = CreateObject("scripting.dictionary")
Set sl = CreateObject("scripting.dictionary")
For n = 2 To Sheets.Count
      If Sheets(n).Range("a1").CurrentRegion.Rows.Count > 3 Then
         B = Sheets(n).Range("a1").CurrentRegion
         For i = 3 To UBound(B)
            je(B(i, 1)) = je(B(i, 1)) + B(i, 2)
            sl(B(i, 1)) = sl(B(i, 1)) + B(i, 4)
         Next i
      End If
Next n
Range("a3").Resize(je.Count) = Application.Transpose(je.keys)
Range("b3").Resize(je.Count) = Application.Transpose(je.items)
Range("c3").Resize(je.Count) = Application.Transpose(sl.items)
End Sub

只汇总数量与金额不要单价2.rar (26.71 KB, 下载次数: 11)