[已解决]EXCEL怎么用VBA 把需要的数据合在一个单元格

shiche12 · 发表于 2016-9-28 12:06

如图我需要把名字相同的对应的编号、属性、数量合并到第一个名字对应的E列里面，并把数量汇总。图片里E列是我手动复制进去的，这样效率好慢，还请老师帮我做个VBA能一键获取，万分感谢！

最佳答案

雪舞子

2016-9-28 12:55

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)

fjmxwrs · 发表于 2016-9-28 12:26

本帖最后由 fjmxwrs 于 2016-9-28 13:06 编辑

你是要打印发货单吗，此表A列的名字可以乱序，点sheet1的按钮即得

雪舞子 · 发表于 2016-9-28 12:55

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)

shiche12 · 发表于 2016-9-28 14:12

fjmxwrs 发表于 2016-9-28 12:26
你是要打印发货单吗，此表A列的名字可以乱序，点sheet1的按钮即得

非常感谢

		自动登录	找回密码
密码			注册