<已经解决！！！ 谢谢！！！>求帮忙使用VBA进行多料号自动转换

aiae

自动转换的料号放在 PFCD 下面黄色的部分，谢谢啦！~

ERP ID	PFCD		对应关系
82-D392098/LRE009XXXX1/LRE009XXXX2			82-D392097	85E0091A64G2
82-D392098/82-D392099			82-D392098	85E0091A64G3
82-D392099			82-D392099	85E0091A64G4
82-D392100/82-D392101			82-D392100	86E0091A64G5
82-D392101			82-D392101	86E0091A64G6
1.如果有对应关系就进行转换
2.如果没有对应关系就不做任何转换，保留原料号
如：	希望转换为：
82-D392098/LRE009XXXX1/LRE009XXXX2	85E0091A64G3/LRE009XXXX1/LRE009XXXX2
82-D392098/82-D392099	85E0091A64G3/85E0091A64G4
82-D392099	85E0091A64G4

82-85.zip (7.49 KB, 下载次数: 13)

2013-4-26 19:22 上传

点击文件名下载附件

dsmch

1. Dim arr, brr, d As Object, i&, j&
   
2. Set d = CreateObject("scripting.dictionary")
   
3. arr = Range("d1").CurrentRegion
   
4. brr = Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     d(arr(i, 1)) = arr(i, 2)
   
7. Next
   
8. a = d.keys: b = d.items
   
9. brr(1, 1) = "PFCD"
   
10. For i = 2 To UBound(brr)
    
11.     For j = 0 To d.Count - 1
    
12.         If InStr(brr(i, 1), a(j)) Then brr(i, 1) = Replace(brr(i, 1), a(j), b(j))
    
13.     Next
    
14. Next
    
15. Range("b1").Resize(UBound(brr)) = brr
    

复制代码

清风竹-

请测试一下，点击按钮。文件里有2个多余的宏，忘删除了。

aiae

dsmch 发表于 2013-4-26 19:53

可以使用，非常感谢！~！~！~

aiae

清风竹- 发表于 2013-4-26 20:13
请测试一下，点击按钮。

可以使用，谢谢！！！

Thermalcharge

调试顺利，可以使用