多数据批量搜索

zjhaocn

各位老师，你们好！
因我公司产品，不同个客户会用不同的产品编号，在数据的搜索比较困难。请查看附件表格中的产品库表格和订单表格，
可否根据订单表里的产品编号列里的数据来搜索产品库里对应的产品编号数据，如能匹配到，可否将产品库里对应项的
数据（零件编号，缸径，图片）导入到订单表格里对应的这三项数据位。

这里面有个难点是，订单表的产品编号一般只有一个数据，但产品库里的产品编号包含了多个数据，所以在用订单表里
产品编号来搜索的时候，可否只要满足该数据包含于产品库表里的产品编号数据，就要被检索到，并匹配对应的三项数据。

这里面，我个人想，图片可能不能呢直接导入吧，所以，可以忽略该需求，只要能搜索到零件编号也可以。

先说感谢了，望大神们帮忙!

不知道为什么

如图，是你需要效果？

zjhaocn

是的，就是这样的效果，不过第6项  产品编号58510-29010，应该也有对应的，可否一起查出来，再请问下，这样的效果如何实现。
我这里只是举例，实际的订单和产品库的数据项次都比较多

不知道为什么

zjhaocn 发表于 2018-6-20 16:16
是的，就是这样的效果，不过第6项  产品编号58510-29010，应该也有对应的，可否一起查出来，再请问下，这样 ...

我用的VBA来处理的，函数我不懂，就帮不了你了哦
代码供参考

zjhaocn

好的，非常感谢，我先试试

zjhaocn

请问下大神，如何添加VBA

314734156

坐等大神，不过你这个多个编号完全可以多个单元格，而且发的文档也不规范，产品编号我看很多都是3行，啦宽之后变2行。这里的问题就是不知道是原本就是3种编号，还是自动换行的结果。

不知道为什么

zjhaocn 发表于 2018-6-21 10:56
请问下大神，如何添加VBA

如图
进入VBE 后，新建模块，把我的代码复制进去，运行就可以了

zjhaocn

好的 ，感谢老师帮忙

ggmmlol

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. ar = Sheet1.Range("A1").CurrentRegion.Resize(, 1).Offset(, 1)
   
5. For i = 2 To UBound(ar)
   
6.     tmp = Split(" " & Replace(ar(i, 1), Chr(10), " "))
   
7.     For j = 1 To UBound(tmp)
   
8.         dic(tmp(j)) = Replace("C2:D2,F2", "2", i)
   
9.     Next
   
10. Next
    
11. ar = Sheet2.Range("A1").CurrentRegion.Resize(, 1)
    
12. Sheet2.Range("A1").CurrentRegion.Offset(1, 1).Delete
    
13. For i = 2 To UBound(ar)
    
14.     s = dic(CStr(ar(i, 1)))
    
15.     If Len(s) Then Sheet1.Range(s).Copy Sheet2.Cells(i, 2)
    
16. Next
    
17. Sheet2.Range("A1").CurrentRegion.Borders.LineStyle = 1
    
18. End Sub

复制代码