[已解决]数据匹配

正宗新手

各位大神：

小弟需要在原始工作表中的J列也就是DC那一列要用C列TPNB那一列去vlookup库存表中的D列。用VBA编程怎么实现。


小弟不需要把范围写死，因为原始中的数据会每天添加，库存表中的数据也会每天添加，J列随着数据添加自己会自动填充。

谢谢大神了。

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-29 16:32

1. Sub x()
   
2. Dim ar, x, br()
   
3. On Error Resume Next
   
4.   ar = Range("c2:c" & [c65500].End(3).Row)
   
5.    r = UBound(ar): ReDim br(1 To r, 1 To 1)
   
6.    For x = 1 To r
   
7.     br(x, 1) = Sheets("库存").[a:a].Find(ar(x, 1)).Offset(0, 3)
   
8.    Next
   
9.    [j2].Resize(r) = br
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

26759761@qq.com

1. Sub x()
   
2. Dim ar, x, br()
   
3. On Error Resume Next
   
4.   ar = Range("c2:c" & [c65500].End(3).Row)
   
5.    r = UBound(ar): ReDim br(1 To r, 1 To 1)
   
6.    For x = 1 To r
   
7.     br(x, 1) = Sheets("库存").[a:a].Find(ar(x, 1)).Offset(0, 3)
   
8.    Next
   
9.    [j2].Resize(r) = br
   
10. End Sub
    

复制代码

正宗新手

26759761@qq.com 发表于 2015-3-29 16:32
你给你的数据一个都查找不到

大神，是这样的，如果用vlookup做的，就是原始工作表中J列，也就是DC那列用C列去匹库存工作表中Al列到D列。我刚运行了下，没数据

正宗新手

正宗新手 发表于 2015-3-29 16:49
大神，是这样的，如果用vlookup做的，就是原始工作表中J列，也就是DC那列用C列去匹库存工作表中Al列到D列 ...

• 我把 br(x, 1) = Sheets("库存").[c:c].Find(ar(x, 1))
  

中的C:C改成了a:d.能运行，但是数据就显示的是库存工作表中的A列了，单我要的是D列的数据

26759761@qq.com

把你vlookup的公式贴出来

正宗新手

26759761@qq.com 发表于 2015-3-29 16:58
把你vlookup的公式贴出来

=VLOOKUP(C2,库存!A:D,4,0)

正宗新手

26759761@qq.com 发表于 2015-3-29 16:58
把你vlookup的公式贴出来

J2=VLOOKUP(C2,库存!A:D,4,0)

dsmch

1. Sub Macro1()
   
2. Dim ar, br, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Sheets("原始").Activate
   
5. ar = Range("a1").CurrentRegion
   
6. br = Sheets("库存").Range("a1").CurrentRegion
   
7. For i = 2 To UBound(br)
   
8.     d("'" & br(i, 1)) = br(i, 4)
   
9. Next
   
10. For i = 2 To UBound(ar)
    
11.     ar(i, 10) = d("'" & ar(i, 3))
    
12. Next
    
13. Range("j1").Resize(UBound(ar)) = Application.Index(ar, 0, 10)
    
14. End Sub

复制代码