怎样将期初金额填入收付存表中期初数相对应的行次？

中原一布衣

      工作簿中有两张表：“成品收付存”（列字段分别为类型、编码、品种、花色、期初数量、入库数量、出库数量）、“期初数量金额”（列字段分别为类型、编码、品种、花色、期初数量、期初金额），由于“成品收付存”表中品种、花色与“期初数量金额”表中的品种、花色不完全相同，有时多、有时少，我想将“期初数量金额”表中的期初金额自动放入“成品收付存”表中F列的期初金额相对应的行次中，求高人指点，附件中只是部分数据，希望编的宏能考虑运行速度问题，最好能以字典的形式导入期初金额。 Book1.rar (25.69 KB, 下载次数: 12)

2012-7-31 14:17 上传

点击文件名下载附件

小花鹿

公式和字典都可以解决。

中原一布衣

伤心啊，没人理我！！

中原一布衣

3楼的大师：我已上传附件，能麻烦您分别用公式和字典给做个示例么？

KCFONG

see if help you

中原一布衣

万分感谢KCFONG！！再请您解释一下：dic(y) = dic(y) + rng(r, 6) 这个语句为什么不用ADD方法也能满足要求？我是知其然不知其所以然，能详细解释一下么？通过本地窗口察看dic，并未看到dic(y)即期初金额的内容？语句rng1(r, 6) = dic(y)为什么能将金额填入到数组rng1中？如果加两个语句：a=dic.keys();b=dic.items()，则在本地窗口中可看到金额的内容，这又是为什么？

Sub test()
Range("f2:f65536").ClearContents
Set dic = CreateObject("scripting.dictionary")
rng = Sheets("期初数量金额").UsedRange
For r = 2 To UBound(rng)
  y = rng(r, 1) & rng(r, 2) & rng(r, 3) & rng(r, 4) & rng(r, 5)
  dic(y) = dic(y) + rng(r, 6)
Next r

rng1 = Sheets("成品收付存").UsedRange
For r = 2 To UBound(rng1)
   y = rng1(r, 1) & rng1(r, 2) & rng1(r, 3) & rng1(r, 4) & rng1(r, 5)
   rng1(r, 6) = dic(y)
Next r
Sheets("成品收付存").UsedRange = rng1
End Sub

中原一布衣

我将KCFONG老师dic(y) = dic(y) + rng(r, 6)改为dic.Add y, rng(r, 6)后也运行正常：
Sub test4()
  Range("F2:F" & Rows.Count).ClearContents
  Set dic = CreateObject("scripting.dictionary")
  rng = Sheets("期初数量金额").UsedRange
  For r = 2 To UBound(rng)
    y = rng(r, 1) & rng(r, 2) & rng(r, 3) & rng(r, 4) & rng(r, 5)
    dic.Add y, rng(r, 6)
  Next r
  rng1 = Sheets("成品收付存").UsedRange
  For r = 2 To UBound(rng1)
    y = rng1(r, 1) & rng1(r, 2) & rng1(r, 3) & rng1(r, 4) & rng1(r, 5)
    If dic.Exists(y) Then rng1(r, 6) = dic(y)
  Next r
  Sheets("成品收付存").UsedRange = rng1

End Sub