请高手帮忙解决一下，怎样用宏进行数据自动匹配

ttt596049881 · 发表于 2017-3-5 14:34

本帖最后由 ttt596049881 于 2017-3-5 14:45 编辑

新接了一项工作，就是给新产品进行编码，我想用宏进行编码自动匹配，请高手帮忙解决一下，怎样用宏进行数据自动匹配。
编码汇总.png

图一是商品编码汇总

图二是新产品

上面两张图分别是两个工作表，
一个是分类和编码的汇总，大类下边有多个中类，中类下边有多个小类，每个分类有对应且唯一的编码。
图二是我想要的效果：在给出商品名称的情况下，在[小类名称]一列输入商品相应的小类名称，前面几个单元格自动匹配出该小类所对应的中类大类名称和编码。
详细数据，请见我的附件！
请把宏放在我的附件里面，直接复制上来我实在是不会弄，谢谢谢谢谢谢~~~~

ttt596049881 · 发表于 2017-3-5 14:39

忘了上传附件。

活在理想的世界 · 发表于 2017-3-5 14:59

你的小类名称是唯一值吗？

活在理想的世界 · 发表于 2017-3-5 15:01

如果小类名称是唯一值可以用下面的代码。

Sub D()
Dim RNG As Range
Dim I, K As Long
K = Sheet2.Range("A1048576").End(xlUp).Row
For I = 2 To K
Set RNG = Sheet2.Range("F:F").Find(Sheet1.Range("F" & I))
Sheet1.Range("A" & I) = RNG.Offset(0, -5)
Sheet1.Range("B" & I) = RNG.Offset(0, -4)
Sheet1.Range("C" & I) = RNG.Offset(0, -3)
Sheet1.Range("D" & I) = RNG.Offset(0, -2)
Sheet1.Range("E" & I) = RNG.Offset(0, -1)
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册