如何应用VBA代码进行分类汇总？

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

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

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

4、会弹出模块编辑窗口！

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

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("汇总").[b3].Resize(d.Count) = Application.Transpose(d.keys)

Sheets("汇总").[c3].Resize(d.Count) = Application.Transpose(d.items)

Sheets("汇总").[d3].Resize(d1.Count) = Application.Transpose(d1.items)

Sheets("汇总").[e3].Resize(d2.Count) = Application.Transpose(d2.items)

Sheets("汇总").[f3].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

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

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

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

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