[已解决]如何用VBA求“核对表”的“C”列数据？

新一

如我的附件，三个红色底纹的工作表，分别为进仓，调拨，核对表，其中核对表已知产品名称及产品的进仓数量，求C列的数据，C列的数据来源于进仓和调拨表中合计出来，分别在进仓和调拨表红色底纹这一列中的数量。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-29 21:15

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro2()
   
2. Dim arr, brr, crr, i&, j%, d
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a2:b" & Range("a65536").End(xlUp).Row)
   
5. ReDim brr(1 To UBound(arr), 1 To 3)
   
6. For j = 1 To 2
   
7.     crr = Sheets(j).UsedRange
   
8.     For i = 1 To UBound(crr)
   
9.         If crr(i, 1) = "名称：" Then Exit For
   
10.         If crr(i, 1) Like "名称：*" Then
    
11.             zf = Trim(Mid(crr(i, 1), 4))
    
12.             d(zf) = d(zf) + crr(i, 6)
    
13.         End If
    
14.     Next
    
15. Next
    
16. For i = 1 To UBound(arr)
    
17.     brr(i, 1) = d(arr(i, 1))
    
18.     brr(i, 3) = arr(i, 2) - brr(i, 1)
    
19.     brr(i, 2) = IIf(brr(i, 3) = 0, "OK", "NG")
    
20. Next
    
21. Range("c2").Resize(UBound(brr), 3) = brr
    
22. End Sub
    

复制代码

dsmch

………………

新一

谢谢老师{:011:}