|
发表于 2015-11-2 20:27
|
显示全部楼层
本楼为最佳答案
本帖最后由 xdragon 于 2015-11-3 00:50 编辑
- Sub ttl()
- Dim d As Object, re, i As Long, arr, cnt As Long, n As Long, sumarr(3), j As Long
- Set d = CreateObject("scripting.dictionary")
- arr = Range("A4:Q" & Cells(Rows.Count, 1).End(xlUp).Row).Value
- ReDim re(1 To UBound(arr) + 1, 1 To 4)
- For i = 1 To UBound(arr)
- If Not d.exists(arr(i, 1)) Then
- cnt = cnt + 1: d(arr(i, 1)) = cnt: re(cnt, 1) = arr(i, 1)
- End If
- n = d(arr(i, 1))
- For j = 1 To 3
- re(n, j + 1) = re(n, j + 1) + arr(i, j + 14)
- sumarr(j) = sumarr(j) + arr(i, j + 14)
- Next
- Next
- sumarr(0) = "合计"
- With Range("T4")
- .Resize(cnt, 4) = re
- .Offset(cnt).Resize(, 4) = sumarr
- End With
- End Sub
复制代码 |
评分
-
查看全部评分
|