宏代码：如何替代函数VLOOKUP

lijian8003 · 发表于 2021-11-30 21:41

本帖最后由 lijian8003 于 2021-11-30 22:08 编辑

e1:o1 e2:o2 两行数据
欲查找b2数值在e2:o2第几列
然后提取e1:o1同列数值，写入b1

cutecpu · 发表于 2021-11-30 21:55

Sub demo()
[b1] = [e2:o2].Find([b2], , , xlWhole).Offset(-1)
End Sub

祝順心，南無阿彌陀佛！

lijian8003 · 发表于 2021-11-30 22:08

cutecpu 发表于 2021-11-30 21:55
Sub demo()
= [e2:o2].Find(, , , xlWhole).Offset(-1)
End Sub

谢谢！代码简洁，运行顺畅，结果正确。

pxjxdsj · 发表于 2021-12-11 11:01

感谢，感恩，学习！谢谢了

wilcoking · 发表于 2022-4-28 23:19

cutecpu 发表于 2021-11-30 21:55
Sub demo()
= [e2:o2].Find(, , , xlWhole).Offset(-1)
End Sub

学习了，谢谢！

zl5196 · 发表于 2022-5-3 21:09

谢谢楼主的分享

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