关于VBA中使用VLOOKUP对比的进化论

banditson · 发表于 2018-8-4 16:33

表A		表B
工号	班别	工号	姓名	类型
A001	操作员	A001	张三	S01
A002	操作员	A002	李四	S01
A003	管理员	A003	王五	S02

写入类型只能在表A中使用VLOOKUP代码，感觉VLOOKUP不是VBA亲生的，数据多了就拖后腿，请问有其它更改合理简洁的代码吗？谢谢！

er = [a65536].End(xlUp).Row
for i=2 to er
if WorksheetFunction.VLookup(Range("a" & i), Sheets("表B").[A:C], 3, 0), 0)="S01" then
Range("b" & i)="操作员"
else
Range("b" & i)="管理员"
end if
next

小花鹿 · 发表于 2018-8-4 16:38

VBA里面为什么要用公式？

microyip · 发表于 2018-8-4 17:08

不是“不是亲生”的说法，根本任何公式多了就会慢。按你说法，sum等等公式都不是亲生了

microyip · 发表于 2018-8-4 17:09

写个VBA代码，还跑去vlookup，还在进行讨论是否亲生的问题

不知道为什么 · 发表于 2018-8-4 17:11

真佩服那些函数用的溜的大虾们！

iwangyi · 发表于 2018-8-4 17:18

函数和代码，各自有各自的优势，为啥要用函数，短平快解决问题，即然有了函数，为什么还出现VBA呢，VBA可以解决函数解决不了的问题（同时函数能解决的问题也可解决）；可以将函数理解为固化的内部自带代码。取自所长，而不是取其所短。

gdw831001 · 发表于 2018-8-4 17:57

调用工作表函数不是很好吗，不一定慢

jiminyanyan · 发表于 2018-8-4 20:57

用字典吧。。。。

lsc900707 · 发表于 2018-8-4 21:08

用字典数组代替VLOOKUP，找找实例，不少的。

banditson · 发表于 2018-8-5 08:47

lsc900707 发表于 2018-8-4 21:08
用字典数组代替VLOOKUP，找找实例，不少的。

好的，谢谢lsc900707老大

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

[讨论] 关于VBA中使用VLOOKUP对比的进化论