Option Explicit
Sub ygb()
Dim i, j, k, s, arr
i = 2
While Cells(i, "K") <> ""
j = 13 'M列
For Each s In Split(Cells(i, "K"), "/")
arr = Split(s, "(")
Cells(i, j) = arr(LBound(arr))
s = arr(UBound(arr))
k = Mid(s, 3, Len(s) - 3)
If Left(s, 2) = "OS" Then
Cells(i, j + 1) = k
Else
Cells(i, j + 2) = k
End If
j = j + 3
Next s
i = i + 1
Wend
End Sub
数据》分列》分隔符号》逗号
看了这个展示的数据，应该是要VBA进行处理。
你没有列举完，最后一行157(os238)对应后面的数据是不对的，好像你还有os3这一项吧？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024