帮人捣鼓了个VBA代码用来实现多行合并，具体需求为：列2/列3/列4 相同的情况下，则对应的行合并为一行，且列1用空格隔开，列5则相加；
（对大多数办公室职员，VBA还算是提高效率的一个利器吧）
最终效果如下：
1 Sub test()
2 Dim r%, i%
3 Dim arr, brr
4 Dim d As Object
5 Set d = CreateObject("scripting.dictionary")
6 With Worksheets("sheet1")
7 r = .Range("a1").End(xlDown).Row
8 arr = .Range("a2:e" & r)
9 For i = 1 To UBound(arr)
10 If Not d.exists(arr(i, 2) & arr(i, 3) & arr(i, 4)) Then
11 ReDim brr(1 To UBound(arr, 2))
12 For j = 1 To UBound(arr, 2)
13 brr(j) = arr(i, j)
14 Next
15 Else
16 brr = d(arr(i, 2) & arr(i, 3) & arr(i, 4))
17 brr(1) = brr(1) & " " & arr(i, 1)
18 brr(5) = brr(5) + arr(i, 5)
19
20 End If
21 d(arr(i, 2) & arr(i, 3) & arr(i, 4)) = brr
22 Next
23 .Range("h2").Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.items))
24 End With
25 End Sub
代码以字典作为实现功能，把列2、列3、列4合并起来作为Key值，列1、列5为Value值，列1则用空格合并，列5则相加。