各位老师,麻烦帮忙看看,字符串去重合计

小小致

各位老师,麻烦帮忙看看可以把A列变成B列这样的,2021级以下版本可以用的公式或者代码.谢谢~

小小致

各位老师,看看可以把A列变成B列这样的,麻烦帮忙写下代码.谢谢~

liulang0808

Sub 按钮1_Click()
    arr = [a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    With CreateObject("vbscript.regexp")
        .Global = True
        For j = 1 To UBound(arr)
            brr = Split(arr(j, 1), " ")
            d.RemoveAll
            str1 = ""
            .Pattern = "(\d+)\*(\d+)(?=,)"
            If .test(brr(1)) Then
                For Each m In .Execute(brr(1))
                    d(m.submatches(0)) = d(m.submatches(0)) + Val(m.submatches(1))
                Next m
                str2 = .Replace(brr(1), ",")
                For Each x In d.keys
                    str1 = str1 & "," & x & "*" & d(x)
                Next x
            End If
            If .test(brr(1)) Then
                d.RemoveAll
                .Pattern = "(\d+)\*(\d+)(\([一-龥]\))"
                For Each m In .Execute(str2)
                    k = m.submatches(0) & "*#@#" & m.submatches(2)
                    d(k) = d(k) + Val(m.submatches(1))
                Next m
                str2 = .Replace(str2, ",")
                For Each x In d.keys
                    str1 = str1 & "," & Replace(x, "#@#", d(x))
                Next x
            End If
            If .test(brr(1)) Then
                d.RemoveAll
                .Pattern = "([一-龥]+)(\d+)([一-龥]+)"
                For Each m In .Execute(str2)
                    k = m.submatches(0) & "#@#" & m.submatches(2)
                    d(k) = d(k) + Val(m.submatches(1))
                Next m
                str2 = .Replace(str2, ",")
                For Each x In d.keys
                    str1 = str1 & "," & Replace(x, "#@#", d(x))
                Next x
            End If
            arr(j, 1) = brr(0) & " " & Mid(str1, 2)
        Next j
    End With
    [c1].Resize(UBound(arr)) = arr
End Sub

liulang0808

楼主可以再优化下代码。。。。

小小致

liulang0808 发表于 2024-10-17 14:07
楼主可以再优化下代码。。。。

好的,谢谢大佬

edwin11891

体力活，适用于WPS新版：

1. =LET(a,TEXTSPLIT(A1,,{" ",","}),b,DROP(a,1),c,REDUCE("",b,LAMBDA(x,y,VSTACK(x,REGEXP(y,"([一-龟]+|\d+)")))),d,DROP(IFERROR(c,""),1),e,GROUPBY(CHOOSECOLS(d,{1,3}),1*CHOOSECOLS(d,2),SUM,0,0),f,BYROW(e,LAMBDA(x,INDEX(x,1)&IF(ISNUMBER(1*INDEX(x,1)),"*","")&INDEX(x,3)&IF(INDEX(x,2)="","",IF(ISNUMBER(1*INDEX(x,1)),"("&INDEX(x,2)&")",INDEX(x,2))))),g,TEXTJOIN(",",,f),h,CONCAT(TAKE(a,1)," ",g),h)

复制代码

小小致

edwin11891 发表于 2024-10-17 15:10
体力活，适用于WPS新版：

收到,谢谢大佬~

likaiyihou

使用正则表达式处理，供参考：

cnmlgb9998

用PQ，不香么？？？？？？？？？？？？？

edwin11891

cnmlgb9998 发表于 2024-10-17 20:16
用PQ，不香么？？？？？？？？？？？？？

检查一下第2行，5*20与5*12应该合并为5*32