对表格中的数据进行分类汇总，利用VBA分类汇总的效果如图所示。

在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

会弹出模块编辑窗口！

在代码编辑窗口输入以下代码：

Set d = CreateObject(scripting.dictionary)

Set d1 = CreateObject(scripting.dictionary)

Set d2 = CreateObject(scripting.dictionary)

Set d3 = CreateObject(scripting.dictionary)

On Error Resume Next

arr = Range(b3, Cells(Rows.Count, f).End(xlUp))

For i = 1 To UBound(arr, 1)

d.Add arr(i, 1), arr(i, 2)

d1.Add arr(i, 1), arr(i, 3)

d2.Add arr(i, 1), arr(i, 4)

d3(arr(i, 1)) = d3(arr(i, 1)) + arr(i, 5)

Next

Sheets(汇总)..Resize(d.Count) = Application.Transpose(d.keys)

Sheets(汇总)..Resize(d.Count) = Application.Transpose(d.items)

Sheets(汇总)..Resize(d1.Count) = Application.Transpose(d1.items)

Sheets(汇总)..Resize(d2.Count) = Application.Transpose(d2.items)

Sheets(汇总)..Resize(d3.Count) = Application.Transpose(d3.items)

For j = 1 To d.Count - 1

Sheets(汇总).Cells(j + 2, 1) = j

Next

Sheets(汇总).UsedRange.HorizontalAlignment = xlCenter

Sheets(汇总).UsedRange.Borders.LineStyle = 6

End Sub

在“开发工具”菜单下，点击“插入”按钮！

在其下拉菜单中，点击插入“表单控件”，并命名为“分类汇总”！

将【分类汇总】按钮与编写代码程序相关联！

点击运行“分类汇总”控件，便可以快速对数据进行分类汇总求和！