单元格中姓名和数量合并

WJgg1000

效果：姓名合并，数量合并.rar (1.88 KB, 下载次数: 8)

2019-10-9 17:24 上传

点击文件名下载附件
谢谢

爱疯

是自行设置的表格样式么？
如果是，建议给出少量的系统导出的数据，说明需求，看能否设计的更合理些

WJgg1000

数量后面空一格，其他没要求

爱疯

如果表格设计合理，也许sum()就行。所以先看看不合理设计能避免吗


如果不能，至少给十几行数据，了解数据的实际分布，有没有特别情况？
不然可能回复的方法要改，甚至重写。

mytto88

Sub kk()
    Dim regx As Object, irow As Integer, arr(), dic As Object
    Set dic = CreateObject("scripting.dictionary")
    Set regx = CreateObject("VBScript.RegExp")
    regx.Global = True
    regx.Pattern = "([一-龢]+)(\d+)"
    With Sheet1
        irow = .Cells(Rows.Count, 2).End(3).Row
        arr = .Range("b2:c" & irow).Value
        For i = 1 To UBound(arr)
            For j = 1 To UBound(arr, 2)
                Set mat = regx.Execute(arr(1, j))
                For Each ma In mat
                     dic(ma.SubMatches(0)) = dic(ma.SubMatches(0)) + CInt(ma.SubMatches(1))
                Next
            Next j
            For Each k In dic.keys
                ss = ss & k & dic(k) & Chr(32)
            Next
            .Range("e2").Value = ss
        Next i
    End With
End Sub

WJgg1000

mytto88 发表于 2019-10-9 19:52
Sub kk()
    Dim regx As Object, irow As Integer, arr(), dic As Object
    Set dic = CreateObject( ...

厉害，就是这个效果