数据在不同批号，不同数量的情况下，放在一个表格里可以自动汇总在一起

yuanzhao

jsgj2023 发表于 2016-11-13 21:25
就是分类汇总么？

这不要到月底盘点了，也是年终审计，但这盘点表没法做，急死人了，如果你知道，还请帮帮忙，谢谢了。

wzsy2_mrf

物料及库存位双条件汇总而已，论坛中多条件汇总的一大把，这样的题目何难之有？

yuanzhao

chxw68 发表于 2016-11-13 22:23
看不懂！帮你顶一下，或许别人能看懂。

哦！谢谢你，还想请问，你打开我上传的附件，里面哪里看不懂？

yuanzhao

wzsy2_mrf 发表于 2016-11-13 22:52
物料及库存位双条件汇总而已，论坛中多条件汇总的一大把，这样的题目何难之有？

你见笑了，我就是因为不懂，所以求教，我们都是菜鸟，谢谢了，可以教我一下吗

as42065300

写的比较简陋不知道是不是这样？

11.12库存.rar (420.34 KB, 下载次数: 32)

2016-11-13 23:45 上传

点击文件名下载附件

jsgj2023

yuanzhao 发表于 2016-11-13 22:48
这不要到月底盘点了，也是年终审计，但这盘点表没法做，急死人了，如果你知道，还请帮帮忙，谢谢了。

数据共有几层？

jsgj2023

1. 
   
2. Sub 透视表式汇总()
   
3. Dim d As Object, arr, x&, y%, s, t, a, b, m%, n%, r%
   
4. Dim sh  As Worksheet
   
5. Application.ScreenUpdating = False
   
6. Set d = CreateObject("scripting.dictionary")
   
7. Application.DisplayAlerts = False
   
8. For f = Sheets.Count To 7 Step -1
   
9.     Sheets(f).Delete
   
10. Next f
    
11. Application.DisplayAlerts = True
    
12. Sheets.Add(after:=Sheets(Sheets.Count)).Name = "透视表式汇总"
    
13. Sheets("从金蝶ERP系统倒出来的原始数据").Activate
    
14. arr = Range("a1").CurrentRegion
    
15. For x = 2 To UBound(arr)
    
16.         If Not d.exists(arr(x, 1)) Then
    
17.                 Set d(arr(x, 1)) = CreateObject("scripting.dictionary")
    
18.         End If
    
19.         d(arr(x, 1))(arr(x, 3)) = d(arr(x, 1))(arr(x, 3)) + arr(x, 4)
    
20. Next x
    
21. s = d.keys: t = d.items
    
22. Sheets("透视表式汇总").Activate
    
23. For m = 0 To d.Count - 1
    
24.         a = d(s(m)).keys: b = d(s(m)).items
    
25.         n = n + r
    
26.         With Sheets("透视表式汇总")
    
27.                 .Cells(1, 1).Resize(1, 3) = Array("物料代码", "仓位名称", "数量")
    
28.                 .Cells(2 + n, 1).Resize(d(s(m)).Count, 1) = s(m)
    
29.                 .Cells(2 + n, 2).Resize(d(s(m)).Count, 1) = Application.Transpose(a)
    
30.                 .Cells(2 + n, 3).Resize(d(s(m)).Count, 1) = Application.Transpose(b)
    
31.                 n = 0
    
32.         End With
    
33.         r = Cells(Rows.Count, 1).End(xlUp).Row - 1
    
34. Next m
    
35. Range("a:c").EntireColumn.AutoFit
    
36. Application.ScreenUpdating = True
    
37. End Sub
    
38. 
    

复制代码

jsgj2023

已经帮你汇总，剩下的按库位拆分自己做一下吧。

yuanzhao

jsgj2023 发表于 2016-11-14 06:17
数据共有几层？

早上好。谢谢你。其实数据就一层，应该说是单表，三条件汇总。
原始数据就是从金蝶系统中导出，做合并汇总

jsgj2023

yuanzhao 发表于 2016-11-14 07:10
早上好。谢谢你。其实数据就一层，应该说是单表，三条件汇总。
原始数据就是从金蝶系统中导出，做合并汇 ...

已经给你做了呀。