[已解决]解决vlookup和计算的问题

正宗新手

各位大神，小弟是新手，现在有两个问题需要各位大神帮忙解决

第一个问题：原始的这个工作表中第H列就是inner那列，我想用C列也就是item那一列vlookup箱入数工作表中的箱入数。小弟不需要excel中vlookup函数做，小弟需要VBA编程这个代码。而且不要把代码写死，也就是如果原始工作标准的数据增加时候也能自己增加。

第二个问题：I列也就是箱这一列等于D列除以H列。（也是按照表中的数据量多少自动去计算，谢谢大家了）

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-28 16:23

1. Sub Macro1()
   
2. Dim ar, br, cr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Sheets("原始").Activate
   
5. ar = Range("a1").CurrentRegion
   
6. ReDim cr(1 To UBound(ar) - 1, 1 To 2)
   
7. br = Sheets("箱入数").Range("a1").CurrentRegion
   
8. For i = 2 To UBound(br)
   
9.     d(br(i, 1)) = br(i, 3)
   
10. Next
    
11. For i = 2 To UBound(ar)
    
12.     If d.exists(ar(i, 3)) Then
    
13.         x = d(ar(i, 3))
    
14.         cr(i - 1, 1) = x
    
15.         cr(i - 1, 2) = Application.Round(ar(i, 4) / x, 2)
    
16.     End If
    
17. Next
    
18. Range("h2").Resize(UBound(cr), 2) = cr
    
19. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim ar, br, cr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Sheets("原始").Activate
   
5. ar = Range("a1").CurrentRegion
   
6. ReDim cr(1 To UBound(ar) - 1, 1 To 2)
   
7. br = Sheets("箱入数").Range("a1").CurrentRegion
   
8. For i = 2 To UBound(br)
   
9.     d(br(i, 1)) = br(i, 3)
   
10. Next
    
11. For i = 2 To UBound(ar)
    
12.     If d.exists(ar(i, 3)) Then
    
13.         x = d(ar(i, 3))
    
14.         cr(i - 1, 1) = x
    
15.         cr(i - 1, 2) = Application.Round(ar(i, 4) / x, 2)
    
16.     End If
    
17. Next
    
18. Range("h2").Resize(UBound(cr), 2) = cr
    
19. End Sub

复制代码

dsmch

…………

正宗新手

万分的感谢，非常谢谢。

正宗新手

dsmch 发表于 2015-3-28 16:23

谢谢，大神啊