|
本帖最后由 zjdh 于 2017-12-7 19:20 编辑
Sub TEST()
ARR = Sheets("第1页").Range("A2:P" & Sheets("第1页").Range("A65536").End(3).Row)
ReDim BRR(1 To UBound(ARR), 1 To UBound(ARR, 2))
Set D = CreateObject("scripting.dictionary")
For I = 1 To UBound(ARR)
W = ""
For J = 1 To 11
W = W & "|" & ARR(I, J)
Next
For J = 13 To 16
W = W & "|" & ARR(I, J)
Next
If Not D.exists(W) Then
N = N + 1
D(W) = N
For J = 1 To 16
BRR(N, J) = ARR(I, J)
Next
Else
BRR(D(W), 12) = BRR(D(W), 12) + ARR(I, 12)
End If
Next
Sheets("结果").Range("A1").CurrentRegion.Offset(1).ClearContents
Sheets("结果").Range("A2").Resize(N, 16) = BRR
MsgBox "数据汇总完毕!"
End Sub
|
|