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

jsgj2023

yuanzhao 发表于 2016-11-14 21:42
我们盘点都是盘总库存。

明天有空帮你写。

yuanzhao

jsgj2023 发表于 2016-11-14 21:49
明天有空帮你写。

好的，谢谢！辛苦你了

jsgj2023

yuanzhao 发表于 2016-11-14 21:55
好的，谢谢！辛苦你了

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 3 Step -1
   
9.     Sheets(f).Delete
   
10. Next f
    
11. Application.DisplayAlerts = True
    
12. Sheets.Add(after:=Sheets(Sheets.Count)).Name = "盘点汇总"
    
13. Sheets("sheet2").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, 2)) = d(arr(x, 1))(arr(x, 2)) + arr(x, 5)
    
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
    

复制代码

jsgj2023

已修改好，请见附件。

yuanzhao

jsgj2023 发表于 2016-11-15 08:56

好的，谢谢啦！

yuanzhao

jsgj2023 发表于 2016-11-15 08:58
已修改好，请见附件。

好的。辛苦了

zhouxiao

数据透视表不行嘛?

lsc900707

ⅤBA综合症，什么都要代码。简单问题复杂化。

yuanzhao

zhouxiao 发表于 2016-11-15 10:11
数据透视表不行嘛?

不行的，我们都试过，而且，我们的数据每天都在变动，每天都有进有出，我们用的是金蝶ERP系统，导出的数据，都是文本模式，我们都是普通的系统操作文员，很多东西都不会的，我给你上传我们早上的日盘点表数据，你看看，以后还得多进论坛多学习。

yuanzhao

lsc900707 发表于 2016-11-15 10:17
ⅤBA综合症，什么都要代码。简单问题复杂化。

对于我这种一个普通的系统操作文员来说，你们所说所做，都是可望而可不及的东西，我只知道做个简单的表格，能用就行，对于你们这些大神级别，我只能膜拜，只能羡慕。