|
如图我需要把名字相同的对应的编号、属性、数量 合并到第一个名字对应的E列里面,并把数量汇总。图片里E列是我手动复制进去的,这样效率好慢,还请老师帮我做个VBA能一键获取,万分感谢!
- Sub test()
- Dim arr, brr(), i&, n%, m%
- arr = Range("a1").CurrentRegion.Offset(1)
- ReDim brr(UBound(arr), 0)
- m = 1
- For i = 1 To UBound(arr) - 1
- s = s & Trim(arr(i, 2)) & " " & Replace(Trim(arr(i, 3)), vbLf, "") & Trim(arr(i, 4)) & " " & vbLf
- n = n + arr(i, 4)
- If arr(i, 1) <> arr(i + 1, 1) Then
- s = s & "共" & n & "件"
- brr(m, 0) = s
- m = i + 1: n = 0: s = ""
- End If
- Next
- [e:e] = ""
- [e1].Resize(i) = brr
- End Sub
复制代码
工作表.rar
(20.6 KB, 下载次数: 12)
|
|