Question

Excel VBA通配符 分隔 取字符串和数字

如图所示，第K列“缺陷位置距头部m（距边部mm）”为原始数据，M-R列为我想要的结果。
例如，K5单元格为343(DS58)/489(DS206)，那么在对应的Length1=343，DS1=58，Length2=489，DS2=206。
请高手编个VBA程序解决问题，因为列数很多。O(∩_∩)O谢谢

Answer 1

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

Answer 2

数据》分列》分隔符号》逗号

Answer 3

看了这个展示的数据，应该是要VBA进行处理。

Answer 4

你没有列举完，最后一行157(os238)对应后面的数据是不对的，好像你还有os3这一项吧？

追问

不好意思 这一行 我手动的输入错误了