运行代码，有些能取到值，有些却取不到

XXZSP2 · 发表于 2023-7-5 09:51

我才学VBA不久，碰到一个问题排查不出原因，附档中【需求合并】工作表的内容是将文件夹中所有工作簿的内容合并，【需求汇总表】是根据【需求合并】中的内容按存货编码将需求数量汇总，【需求汇总表】中的现存量是根据【第一页】中的数量按存货编码取的值，为什么410162这个存货编码在【第一页】中是有数量，但是【需求汇总表】的现存量这里取不到值，很奇怪，只有这个编码取不到，其它的都能取到。我把两边都分列了再运行代码，也还是这样。请求大神帮忙看看，感谢！

lcluck2002 · 发表于 2023-7-5 11:32

留个脚印，先看着。代码一句注释没有，可不是个好习惯。

XXZSP2 · 发表于 2023-7-5 16:24

lcluck2002 发表于 2023-7-5 11:32
留个脚印，先看着。代码一句注释没有，可不是个好习惯。

嗯嗯，老师说得是，后续改进

xunanming · 发表于 2023-7-5 16:48

Set dic1 = CreateObject("scripting.dictionary")
arr1 = Sheets("第一页").Range("B5").CurrentRegion
For j = 2 To UBound(arr1)
dic1(arr1(j, 1) & "") = arr1(j, 5)
Next j

复制代码

上方代码的数组循环起点写错了,你是按表格的行号写的5,自然就将2 到4的数据无法写入字典.当然结果也就没有了.

沈默00 · 发表于 2023-7-5 17:14

代码有点乱哟，让大佬们给你重新写一个吧

汉唐 · 发表于 2023-7-5 18:10

取不到数的原因是关键字有空格，要用trim(arr(i,1)) 来清除以统一关键字

XXZSP2 · 发表于 2023-7-6 16:50

xunanming 发表于 2023-7-5 16:48
上方代码的数组循环起点写错了,你是按表格的行号写的5,自然就将2 到4的数据无法写入字典.当然结果也就没有 ...

非常感谢！我现在明白了。

XXZSP2 · 发表于 2023-7-6 16:50

汉唐发表于 2023-7-5 18:10
取不到数的原因是关键字有空格，要用trim(arr(i,1)) 来清除以统一关键字

非常感谢！

XXZSP2 · 发表于 2023-7-6 16:52

沈默00 发表于 2023-7-5 17:14
代码有点乱哟，让大佬们给你重新写一个吧

不好意思，刚刚开始学

		自动登录	找回密码
密码			免费注册

[求助] 运行代码，有些能取到值，有些却取不到