【VBA案例009】合并单元格汇总

1
Sub 汇总()
2

3
    Dim i, j, k
4
    Dim ar
5

6
    ar = Range("a1:c" & [c65536].End(3).Row)
7

8
    Dim d As Object, kw$
9
    Set d = CreateObject("Scripting.Dictionary")
10
    'd.CompareMode = vbTextCompare '不区分大小写
11

12
    For i = 2 To UBound(ar)
13
        If ar(i, 1) = "" Then ar(i, 1) = ar(i - 1, 1)
14
        d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 3)
15
    Next
16
    [F2].Resize(d.Count) = Application.WorksheetFunction.Transpose(d.keys)
17
    [g2].Resize(d.Count) = Application.WorksheetFunction.Transpose(d.items)
18

19
End Sub