VBA用字典来替代函数的Vlookup
Excel里有Vlookup函数,查找匹配数据非常方便,在VBA里,也可以用worksheetfunction.vlookup方法来调用,今天我介绍一个另一种使用字典(dictionary)+数组的方法,速度也非常快。
数据源图片:
代码:
Sub test() Dim data, temp, arr Dim d Dim i&, k& Set d = CreateObject("scripting.dictionary") data = [a1].CurrentRegion For i = 2 To UBound(data) d(data(i, 1) & "") = data(i, 2) Next temp = [d1].CurrentRegion ReDim arr(2 To UBound(temp), 1 To 1) For k = 2 To UBound(temp) arr(k, 1) = d(temp(k, 1)) Next [e2].Resize(UBound(arr) - 1, 1) = arr Set d = Nothing End Sub
源文件:dictionary
作者:laoyebin(Paladin.lao)
出处:http://www.cnblogs.com/laoyebin/
网赚 :https://laoyebin.com/
优惠码发布:https://yhmfb.com/
导读网:https://daodu.co/
外汇吧:https://waihui.pub/
本文版权归作者和博客园共有,欢迎转载,但请保留作者信息和原文链接,非常感谢。
反馈文章质量,你可以通过快速通道评论: