字典匹配。求指教

小电兔

ykcbf1100 发表于 2023-3-28 09:41
代码的话，这样就可以吧。

你自己测试一下。

老师，我昨天已经这样改过了，运行不报错，但数据不能正确匹配上

ykcbf1100

小电兔 发表于 2023-3-28 09:52
老师，我昨天已经这样改过了，运行不报错，但数据不能正确匹配上

代码我改了一下。
这个代码应该没问题，如果有，那应该是二个表的字段名不同造成。

小电兔

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)

这一段有点没绕过来

3190496160

小电兔 发表于 2023-3-28 10:02
老师额外问一下，trim（）函数用于这里是什么作用呢

xh = d(Trim(brr(i, 20)))

trim去重前后空格，
这几句代码就是最核心的代码了，

小电兔

3190496160 发表于 2023-3-28 10:45
trim去重前后空格，
这几句代码就是最核心的代码了，

老师，我中间再加新的一列那这段代码就不适合了，有什么改良方法吗

3190496160

小电兔 发表于 2023-3-28 10:58
老师，我中间再加新的一列那这段代码就不适合了，有什么改良方法吗

呵呵呵，不是代码不合适，而是你没有真正理解这几句代码的意思

tanglf188

zjzyj

楼主的代码出错是因为对
arr = Sheet20.Range("K1").CurrentRegion
brr = Sheet08.Range("T1").CurrentRegion
这两行的理解不够深。

因Sheet20表K列的左边J列不是空列，所以 Range("K1").CurrentRegion 的区域范围是从A列开始的（不是从K列开始），所以arr(i,1)是测试日期，arr(i,11)才是K列的“快淬出炉编号”，这样装入字典的内容就不对了。
同理，因Sheet08表T列的左边S列也不是空列，Range("T1").CurrentRegion 的区域范围也是从A列开始的，所以brr(i,1)是填报日期，brr(i,20)才是T列的“批次”。

所以，需要把下面这两行
s = arr(i, 1) & "|" & arr(1, j)
s = brr(i, 1) & "|" & brr(1, j)

改为：
s = arr(i, 11) & "|" & arr(1, j)
s = brr(i, 20) & "|" & brr(1, j)