替换并生成物料编码

15968725770

替换并生成物料编码

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 27).End(xlUp).Row
   
6.         arr = .Range("aa21:ai" & r)
   
7.         ReDim brr(1 To UBound(arr), 1 To 8)
   
8.         For i = 1 To UBound(arr)
   
9.             xm = Split(arr(i, 8), "*")
   
10.             brr(i, 1) = Replace(arr(i, 8), "*", "x")
    
11.             brr(i, 2) = xm(0)
    
12.             brr(i, 3) = xm(1)
    
13.             brr(i, 4) = xm(2)
    
14.             brr(i, 5) = arr(i, 4) & "(" & arr(i, 5) & ")" & arr(i, 7) & "#" & arr(i, 8)
    
15.             brr(i, 6) = arr(i, 1) & "-" & arr(i, 7)
    
16.             brr(i, 7) = arr(i, 2) & "-" & arr(i, 7)
    
17.             brr(i, 8) = arr(i, 3) & "-" & arr(i, 7)
    
18.         Next
    
19.         .Range("a21").Resize(UBound(brr), UBound(brr, 2)) = brr
    
20.     End With
    
21. End Sub
    

复制代码

chxw68

考眼力的题目。

15968725770

chxw68 发表于 2023-4-24 15:10
考眼力的题目。

老师您太厉害了，非常感谢！！！

xunanming

请参考-------------------------------

15968725770

chxw68 发表于 2023-4-24 15:10
考眼力的题目。

老师你好，表格里“规格”是遇到“19*2”，会出错，要怎么弄，谢谢老师帮忙修改下

chxw68

15968725770 发表于 2023-7-7 16:38
老师你好，表格里“规格”是遇到“19*2”，会出错，要怎么弄，谢谢老师帮忙修改下

把出错文件传上来。

15968725770

chxw68 发表于 2023-7-7 17:05
把出错文件传上来。

chxw68

修改好了。