如何VBA 统计库存

qingc0221

1. Sub tt()
   
2.    
   
3.     Dim Sht1 As Worksheet, Sht2 As Worksheet, d As Object
   
4.     Dim LR1 As Long, LR2 As Long, i As Long, j As Long, n As Long, m As Long
   
5.     Dim Arr1, Arr2, Arr()
   
6.    
   
7.     Set Sht1 = Sheets("入库列表")
   
8.     Set Sht2 = Sheets("出库列表")
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     LR1 = Sht1.Cells(Sht1.Rows.Count, 1).End(xlUp).Row
    
11.     LR2 = Sht2.Cells(Sht2.Rows.Count, 1).End(xlUp).Row
    
12.     Arr1 = Sht1.Range("G4:J" & LR1)
    
13.     Arr2 = Sht2.Range("G4:J" & LR2)
    
14.     ReDim Arr(1 To 6, 1 To LR1 + LR2)
    
15.    
    
16.     For i = 1 To UBound(Arr1)
    
17.         If Not d.exists(Arr1(i, 1) & Arr1(i, 2)) Then
    
18.             n = n + 1
    
19.             d(Arr1(i, 1) & Arr1(i, 2)) = n
    
20.             Arr(1, n) = Arr1(i, 1)  '物料名称
    
21.             Arr(2, n) = Arr1(i, 2)  '物料规格
    
22.             Arr(3, n) = Arr1(i, 3)  '单位
    
23.             Arr(5, n) = Arr1(i, 4)  '入库数量 Arr(4,n)为上月结存,留空
    
24.         Else
    
25.             m = d(Arr1(i, 1) & Arr1(i, 2))
    
26.             Arr(5, m) = Arr(5, m) + Arr1(i, 4)
    
27.         End If
    
28.     Next i
    
29.     For j = 1 To UBound(Arr2)
    
30.         If Not d.exists(Arr2(j, 1) & Arr2(j, 2)) Then
    
31.             n = n + 1
    
32.             d(Arr2(j, 1) & Arr2(j, 2)) = n
    
33.             Arr(1, n) = Arr2(j, 1)  '物料名称
    
34.             Arr(2, n) = Arr2(j, 2)  '物料规格
    
35.             Arr(3, n) = Arr2(j, 3)  '单位
    
36.             Arr(6, n) = Arr2(j, 4)  '出库数量
    
37.         Else
    
38.             m = d(Arr2(j, 1) & Arr2(j, 2))
    
39.             Arr(6, m) = Arr(6, m) + Arr2(j, 4)
    
40.         End If
    
41.     Next j
    
42.     Range("B4").Resize(n, 6) = Application.Transpose(Arr)
    
43.     For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
    
44.         Range("H" & i).Formula = "=E" & i & "-F" & i & "-G" & i
    
45.     Next i
    
46. End Sub

复制代码

lzqmsy

库存表.rar (23.42 KB, 下载次数: 218)

2017-4-30 15:30 上传

点击文件名下载附件

,有不明之处联系我

jjmysjg

留下记号，谢谢各位

qingc0221

qingc0221 发表于 2017-4-30 08:00

Range("H" & i).Formula = "=E" & i & "-F" & i & "-G" & i
这句写错了，应该是 +F才对

月隐星寒

lzqmsy 发表于 2017-4-30 15:30
,有不明之处联系我

非常感谢！

月隐星寒

qingc0221 发表于 2017-4-30 20:42
Range("H" & i).Formula = "=E" & i & "-F" & i & "-G" & i
这句写错了，应该是 +F才对

非常感谢！

月隐星寒

qingc0221 发表于 2017-4-30 08:00

非常感谢！！

xchy122

非常感谢 对我也实用

莪岢苡佷恏i_wil

lzqmsy 发表于 2017-4-30 15:30
,有不明之处联系我

请加QQ:973497538,有问题求教