Vlookup直接用VBA找出值

michaelaa

老师帮忙看一下。

lsc900707

字典匹配：

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheet2.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = arr(i, 2)
   
6.     Next
   
7.     brr = [a1].CurrentRegion
   
8.     For i = 2 To UBound(brr)
   
9.         If d.exists(brr(i, 1)) Then brr(i, 2) = d(brr(i, 1))
   
10.     Next
    
11.     [a1].CurrentRegion = brr
    
12. End Sub

复制代码

lsc900707

参考附件：

michaelaa

lsc900707 发表于 2018-6-21 19:19
字典匹配：

d(arr(i, 1)) = arr(i, 2)老师没看懂，好像没有读取数据表中的数据，还有这句是什么意思呢？

yaojil

建议学习一下这两个帖子

http://club.excelhome.net/thread-868892-1-1.html
http://club.excelhome.net/thread-1071321-1-1.html

lsc900707

michaelaa 发表于 2018-6-21 19:36
d(arr(i, 1)) = arr(i, 2)老师没看懂，好像没有读取数据表中的数据，还有这句是什么意思呢？

5楼老师已经回答了你的问题，先了解一点字典常识啊。