分列求助

zldccmx

详见附件！单纯的循环

学习js宏

风雨相随3 发表于 2023-1-20 15:37
第一个“/"不是的。所以结果位移了一列。

let brr =selArr.map(v =>v[0].split(/,单价|\*数量|(?<=\d+)\//g))
改第三行

准提部林

Sub TEST_A1()
Dim Arr, Brr, i&, A, T$, TR, c%, Cx%, N&
Arr = Range([c1], [b65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 180)
For i = 6 To UBound(Arr)
    c = 0: N = N + 1
    For Each A In Split(Arr(i, 2), "/")
        If InStr(A, "单价") = 0 Then T = T & A & "/": GoTo a01
        TR = Split(A, ",")
        Brr(N, c + 1) = T & TR(0): T = ""
        Brr(N, c + 2) = Val(Split(TR(1), "单价")(1))
        Brr(N, c + 3) = Val(Split(TR(1), "数量")(1))
        c = c + 3
a01: Next
Next i
[f6].Resize(N, 180) = Brr
End Sub