字典匹配。求指教

小电兔 · 发表于 2023-3-27 18:38

本帖最后由小电兔于 2023-3-28 09:16 编辑

各位老师，大神们。希望能够从测试数据库和产成品产出两个表，最好运用字典，能够根据测试数据库里的快淬出炉编号和产成品产出里的批次相对应，将相应的测试数据库里Br，HcJ，Hci，BH，MS，Md，Hk，Q的值准确匹配到产成品产出的表里。自己刚学没多久写了一段代码，虽然能运行但无法正确匹配。希望各位大佬们能够解惑或者提供更好更简洁的代码那就更好了。感谢，这个已经折磨我一下午了。。

小电兔 · 发表于 2023-3-28 10:02

本帖最后由小电兔于 2023-3-28 10:25 编辑

3190496160 发表于 2023-3-28 09:17
Sub 字典法复制数据6()
Dim d As Object
Set d = CreateObject("scripting.dictionary")

老师额外问一下，trim（）函数用于这里是什么作用呢

xh = d(Trim(brr(i, 20)))
         If xh <> "" Then
            For j = 12 To 19
                  brr(i, j + 23) = arr(xh, j)

这一段有点没绕过来

shiruiqiang · 发表于 2023-3-27 18:44

本帖最后由 shiruiqiang 于 2023-3-27 18:47 编辑

字典只能1个key和1个item配对,附件哪？

Yalishanda30 · 发表于 2023-3-27 18:45

求助没附件，等于浪费大家时间

小电兔 · 发表于 2023-3-27 18:57

shiruiqiang 发表于 2023-3-27 18:44
字典只能1个key和1个item配对,附件哪？

实在不还意思，以为发上去了，我这就发

zjzyj · 发表于 2023-3-27 18:59

本帖最后由 zjzyj 于 2023-3-28 07:15 编辑

设个断点，运行中断时把arr、brr和dic点开，再添加监视dic.items，看看第1行和每行第1列，以及dic中数据是不是跟你预想的是一致的

小电兔 · 发表于 2023-3-27 19:06

Yalishanda30 发表于 2023-3-27 18:45
求助没附件，等于浪费大家时间

实在不好意思

小电兔 · 发表于 2023-3-28 08:11

zjzyj 发表于 2023-3-27 18:59
设个断点，运行中断时把arr、brr和dic点开，再添加监视dic.items，看看第1行和每行第1列，以及dic中数据是 ...

老师，我因为是刚接触vba不久，可能不太理解您的意思。不知道怎么改。您看您方便的话能否给我修改一下。（不好意思）

liulang0808 · 发表于 2023-3-28 08:16

楼主发个模拟附件就可以了
把对应的数据清理下，压缩后附件不大于2M就可以上传的

3190496160 · 发表于 2023-3-28 08:35

上传附件很好解决，没有附件无从下手

小电兔 · 发表于 2023-3-28 08:41

3190496160 发表于 2023-3-28 08:35
上传附件很好解决，没有附件无从下手

已经上传了。大神

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

[求助] 字典匹配。求指教

评分