用VBA代替VLOOKUP多列取数给不连续的多列赋值

hzruziniu · 发表于 2014-12-4 20:26

zax010 发表于 2014-12-4 20:13
>>>>>>>>>>>>>>>>>>>>>>>

非常感谢zax010 老师，字典代码非常完美，速度又快，太感谢你了。

hzruziniu · 发表于 2014-12-4 20:37

chxw68 发表于 2014-12-4 20:23
纠正了覆盖公式的问题。

谢谢谢谢！速度非常快，完美经典的字典用法，受到那么多热心的老师帮助，在此E家感到非常的温暖。

hzruziniu · 发表于 2014-12-21 15:58

chxw68 发表于 2014-12-4 20:23
纠正了覆盖公式的问题。

再次求助chxw68老师：
你的代码速度很快，但由于以B列的序号为关健词与姓名错位不对应，自已多次修改但是由于对最后一句赋值代码不理解，始终修改不成功，无奈再次求助老师：
1、因序号为关健词与姓名错位,造成赋值错误，要求修改为以姓名为关健词
2、请解释一下最后一名赋值代码的意思：
.Cells(4, x).Resize(UBound(brr), 1) = Application.Index(brr, 0, m)
我的理解只认为Resize(UBound(brr), 1)是一列赋值，怎么会是三列？
Index(brr, 0, m)又是如何理解？
再次谢谢你！

多列赋值.rar (14.95 KB, 下载次数: 48)

chxw68 · 发表于 2014-12-21 16:19

Index(brr,0,m)是取数组brr的第m列数据。上面加了一个循环呢，所以可以赋值3列。

LMY123 · 发表于 2017-4-15 09:13

多列字典学习

Amarry · 发表于 2017-4-16 14:15

查找匹配后输出到多列，学习了！

熊文来 · 发表于 2017-6-15 14:18

chxw68 发表于 2014-12-21 16:19
Index(brr,0,m)是取数组brr的第m列数据。上面加了一个循环呢，所以可以赋值3列。

太强大了。大大的一个赞

奋斗吧！ · 发表于 2021-3-9 13:36

zax010 发表于 2014-12-4 20:12
Sub zz()
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet2.Range("B2").CurrentRegi ...

您好，老师，想请教一下，您的下列这句代码什么意思，我是一名初学者，看了半天，也没看明白，感谢！s = d(.Cells(i, 3).Value): .Cells(i, 11) = s(0): .Cells(i, 12) = s(1): .Cells(i, 15) = s(2)

前进者 · 发表于 2022-5-29 06:49

多列字典、梦里寻她千百度，蓦然回首她在论坛此处！

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

[求助] 用VBA代替VLOOKUP多列取数给不连续的多列赋值

点评

评分