VBA用字典来替代函数的Vlookup

Excel里有Vlookup函数，查找匹配数据非常方便，在VBA里，也可以用worksheetfunction.vlookup方法来调用，今天我介绍一个另一种使用字典(dictionary)+数组的方法，速度也非常快。数据源图片：650) this.width=650;” onclick=’window.open(“http://blog.51cto.com/viewpic.php?refimg=” + this.src)’ onclick=”window.open(“http://blog.51cto.com/viewpic.php?refimg=” + this.src)” src=”http://cdn.verydemo.com/upload/2013_04_16/13660792997880.jpg” border=”0″ alt=”” />代码： test() test()Dim data, temp, arrDim dDim i&, k&Set d = CreateObject(“scripting.dictionary”)data = [a1].CurrentRegionFor i = 2 To UBound(data)d(data(i, 1) & “”) = data(i, 2)Nexttemp = [d1].CurrentRegionReDim 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) = arrSet d = NothingEnd Sub作者：laoyebin(Paladin.lao)博客园出处：http://www.cnblogs.com/laoyebin/个人网站英文出处：http://mrvsto.com/个人网站中文出处：http://cn.mrvsto.com/

VSTO与Excel学习

或者在河边放下一盏写着心愿的河灯，祝愿一切安好。