[excel]对重复行汇总累计，不重复行直接统计

Private Sub CommandButton1_Click()

Dim i%, K%

Dim d As Object

Range("D2:F11").ClearContents

Set d = CreateObject("Scripting.Dictionary")

For i = 2 To 11

If d.Exists(Cells(i, 1).Value) = False Then

d.Add Cells(i, 1).Value, 1

Cells(d.Count + 1, "D") = d.Count '给不重复加序号

Cells(d.Count + 1, "e") = Cells(i, 1) '列出不重复项

Cells(d.Count + 1, "F") = Cells(i, 2) '列出不重复第一次的B列数值

Else

K = Application.Match(Cells(i, 1), d.keys, 0) '找到重复项的索引

Cells(K + 1, "F") = Cells(K + 1, "F") + Cells(i, 2) '累加数值

End If

Next i

End Sub