VBA自动统计库存数量

luketools

  各位大神好，如题，我有一张测试型号的表格，因进货是一次性的，但出货时客户和数量不统一，现在统计这个剩余库存比较麻烦。想用VBA编写一段代码实现我需要的功能。因为总是会有行的插入，不知道这个逻辑如何写，烦请各位大神帮忙看看，谢谢！

ykcbf1100

附件供参考。。。

ykcbf1100

代码如下：

1. Sub ykcbf()   '//2024.3.11
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("测试明细")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 10)
   
8.     End With
   
9.     ReDim brr(1 To UBound(arr), 1 To 7)
   
10.     ReDim zrr(1 To UBound(arr), 1 To 7)
    
11.     b = [{1,3,4,5,6,2,7}]
    
12.     For i = 4 To UBound(arr)
    
13.         If arr(i, 4) = Empty Then
    
14.             For j = 2 To 7
    
15.                 arr(i, j) = arr(i - 1, j)
    
16.             Next
    
17.         Else
    
18.             n = n + 1
    
19.             For j = 1 To 7
    
20.                 brr(n, j) = arr(i, b(j))
    
21.             Next
    
22.         End If
    
23.         s = arr(i, 4)
    
24.         d(s) = d(s) + arr(i, 10)
    
25.     Next
    
26.     For i = 1 To UBound(brr)
    
27.         t = d(brr(i, 3))
    
28.         If brr(i, 4) - t <> 0 Then
    
29.             m = m + 1
    
30.             zrr(m, 1) = m
    
31.             For j = 2 To 7
    
32.                 zrr(m, j) = brr(i, j)
    
33.             Next
    
34.             zrr(m, 4) = zrr(m, 4) - t
    
35.         End If
    
36.     Next
    
37.     With Sheets("测试片库存")
    
38.         '   .UsedRange.Offset(2) = ""
    
39.         .Range("a3").Resize(m, 7) = zrr
    
40.         .Range("a3").Resize(m, 7).Borders.LineStyle = 1
    
41.     End With
    
42.     Set d = Nothing
    
43.     Application.ScreenUpdating = True
    
44.     MsgBox "OK！"
    
45. End Sub
    
46. 
    

复制代码

luketools

ykcbf1100 发表于 2024-3-11 11:14
代码如下：

感谢你的帮助，实测有几个问题请教一下：
1.b = [{1,3,4,5,6,2,7}]  这个代码是什么意思，起什么作用
2.保存现有表格计算没问题，中间增加行时也是对的。但当有的规格出完后库存为0时，库存统计不正确
3.当在最下面增加规格时，库存统计也不正确，烦请帮忙看一下，谢谢！

ykcbf1100

luketools 发表于 2024-3-11 11:55
感谢你的帮助，实测有几个问题请教一下：
1.b = [{1,3,4,5,6,2,7}]  这个代码是什么意思，起什么作用
2 ...

你求助时可没说这些。代码仅适用于附件。
如果你求助时一次性说清楚，就不用这样来回折腾了。