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/

個人網站英文出處：http://mrvsto.com/

個人網站中文出處：http://cn.mrvsto.com/