Dim ss As String, s() As String, i As Integer
ss = "A5642 18K +/-1%或C5644 2K +/-5%或H2344 15K9 +/-10%"
s = Split(ss, " ")
For i = 0 To UBound(s)
Print s(i)
Next
str="A5642 18K +/-1%"
P1=InStr(1,str," ")
P2=InStr(P1+1,str," ")
str1=mid(str,p1+1,p2-p1)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024