用VBA写VLOOKUP函数

zy19880405

安装表中的D列数据  查找后面所有表的数据（因为表格太大所以只取了一部分）   然后把查找到的L列的数据放到安装表的 J 列里  

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> ActiveSheet.Name Then
   
5.             With sht
   
6.                  arr = .[a1].CurrentRegion
   
7.                  For i = 2 To UBound(arr)
   
8.                      d(arr(i, 4)) = arr(i, 12)
   
9.                  Next
   
10.             End With
    
11.         End If
    
12.     Next
    
13.     brr = [a1].CurrentRegion
    
14.     For i = 2 To UBound(brr)
    
15.         If d.exists(brr(i, 4)) Then brr(i, 10) = d(brr(i, 4))
    
16.     Next
    
17.     [a1].CurrentRegion = brr
    
18. End Sub

复制代码

chaohuahch

你的要求有问题，我查了配电箱30404017008这个编号。在不同的栋号，及1#与4#都存在，但是价格是不一样的。所以你的条件，应该还需要多一点。