[已解决]不知道此表怎么汇总，请高手扫盲

张家小妮 · 发表于 2013-2-27 12:19

有一个关于汇总的表格，请各位高手帮忙看看有没有什么公式可以解决的，帮助我解决这个表，小女在此先行谢过{:13:}

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-27 12:32

这样行吗，用数据透视表

库存汇总表.rar (49.29 KB, 下载次数: 20)

w1098 · 发表于 2013-2-27 12:28

数据透视表

库存汇总表.rar (56.43 KB, 下载次数: 10)

cbg2008 · 发表于 2013-2-27 12:32

这个最佳答案由 cbg2008 给出，感谢 cbg2008 的回答。

单击隐藏图章

这样行吗，用数据透视表

库存汇总表.rar (49.29 KB, 下载次数: 20)

JLxiangwei · 发表于 2013-2-27 13:44

本帖最后由 JLxiangwei 于 2013-2-27 13:56 编辑

Sub test()
Dim arr, arr1, x&
Dim d As New Dictionary
Dim d1 As New Dictionary
   Sheet2.Range("c4:cg65536").ClearContents
arr = Sheet2.Range("a2").CurrentRegion
arr1 = Sheet1.Range("a1").CurrentRegion
For x = 4 To UBound(arr)
      d.Add arr(x, 2), x
Next
For x = 3 To UBound(arr, 2)
      d1.Add arr(3, x), x
Next
For x = 2 To UBound(arr1)
      s = Right$(arr1(x, 5), VBA.Len(arr1(x, 5)) - 2)
      If d.Exists(arr1(x, 2)) And d1.Exists(s) Then
         arr(d(arr1(x, 2)), d1(s)) = arr(d(arr1(x, 2)), d1(s)) + arr1(x, 9)
      End If
Next
Sheet2.Range("c5:cg65536").ClearContents
Sheet2.Range("A1").Resize(d.Count + 3, d1.Count + 2) = arr
End Sub

学习进行了 · 发表于 2013-2-27 14:09

库存汇总表.rar (71.69 KB, 下载次数: 2)

		自动登录	找回密码
密码			注册