不规范的名称和型号做统一处理

feilang01

AB列是数据源 期望由AB列得到DE列的数据。谢谢！

ykcbf1100

规格型号录入不规范，要先进行数据清洗才行。

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.12
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 2)
   
4.     ReDim brr(1 To UBound(arr), 1 To 2)
   
5.     For i = 2 To UBound(arr)
   
6.         m = m + 1
   
7.         st = Split(arr(i, 1), "*")
   
8.         s = st(UBound(st))
   
9.         ss = Replace(arr(i, 2), "Φ", "φ")
   
10.         k = Val(ss)
    
11.         If k = 0 Then
    
12.             If InStr(ss, "φ") Then
    
13.                 k = Val(Mid(ss, InStr(ss, "φ") + 1))
    
14.             Else
    
15.                 k = Val(Mid(ss, 8))
    
16.             End If
    
17.         End If
    
18.         If k > 10 Then
    
19.              brr(m, 1) = "螺纹钢"
    
20.         Else
    
21.             If InStr(s, "螺") Then
    
22.                 brr(m, 1) = "盘螺"
    
23.             Else
    
24.                 brr(m, 1) = "线材"
    
25.             End If
    
26.         End If
    
27.         brr(m, 2) = k
    
28.     Next
    
29.     [d2:e10000] = ""
    
30.     [d2].Resize(m, 2) = brr
    
31.     MsgBox "OK！"
    
32. End Sub
    

复制代码

feilang01

ykcbf1100 发表于 2024-6-12 17:10
规格型号录入不规范，要先进行数据清洗才行。

附件供参考。。。

非常感谢！非是录入数据不规范。是供应商开票名称五花八门，需要整理规范后才能进行后续汇总。老师的代码给了一些思路。还以为只有正则才能解决问题呢。

skiss

没有明显的对应关系，比如货物和规格中，很难处理得完全正确，比如怎么能知道它是高强盘螺？

wang-way

这个得用正则表达式提取一下吧。

feilang01

skiss 发表于 2024-6-13 13:43
没有明显的对应关系，比如货物和规格中，很难处理得完全正确，比如怎么能知道它是高强盘螺？

恩，ykcbf1100老师的代码已经给了很好的思路。稍微加个判断即可知道是高强盘螺。例如判断型号包含CRB600H就是高强盘螺

feilang01

ykcbf1100 发表于 2024-6-12 17:10
参与一下。。。

本以为非正则无法解决。老师的代码给了很多思路。原来val是这么用的。获益良多，学到了。