用字典模拟Vlookup匹配取数

excel1202 · 发表于 2024-8-25 15:48

Qs18 发表于 2024-8-25 07:32
试试...........

代码没有累加，错位。我改了改，可以得出正确答案，感谢帮助！

rysxing · 发表于 2024-8-25 16:09

excel1202 发表于 2024-8-25 12:39
里面没有代码啊

jsa。。。

ykcbf1100 · 发表于 2024-8-25 16:12

excel1202 发表于 2024-8-25 15:32
谢谢，但代码会修改表一其他单元格的数据。
要求只将数据加到表一的 E列、F列，在表二找不到表一时，添 ...

没有修改表1的数据，但表2和表1的第一列相同时，只改变EF列数据。但表2有表1没有的数据，表1才会增加数据。问题在于，当你再次运行时，EF列数据会再次改变，这样的数据就错了，这就是我为什么建议你把结果放到第３表的原因。

excel1202 · 发表于 2024-8-25 16:38

ykcbf1100 发表于 2024-8-25 16:12
没有修改表1的数据，但表2和表1的第一列相同时，只改变EF列数据。但表2有表1没有的数据，表1才会增加数据 ...

好的，感谢帮助！

excel1202 · 发表于 2024-8-25 16:39

rysxing 发表于 2024-8-25 16:09
jsa。。。

感谢帮助！需要VBA代码，今天没有分了，明天再评分。

sdytsxd991122 · 发表于 2024-8-25 16:45

rysxing · 发表于 2024-8-25 16:49

excel1202 发表于 2024-8-25 16:39
感谢帮助！需要VBA代码，今天没有分了，明天再评分。

不是冲着分来的，学习。。。

excel1202 · 发表于 2024-8-25 19:11

本帖最后由 excel1202 于 2024-8-25 19:44 编辑

各位大侠的答案见附件，感谢各位高手的帮助！

excel1202 · 发表于 2024-8-26 21:26

ykcbf1100 发表于 2024-8-25 08:26
参与一下。。。。

m = m + 1
            For j = 1 To UBound(arr)
                  crr(m, j) = arr(d(s), j)
            Next
这里循环，在5万条记录中匹配另外一个表中有5万条记录时，VBA会无反应。

ykcbf1100 · 发表于 2024-8-27 07:07

excel1202 发表于 2024-8-26 21:26
m = m + 1
For j = 1 To UBound(arr)
crr(m, j) = arr(d(s), j) ...

你试过了吗？

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

[已解决] 用字典模拟Vlookup匹配取数