1、实例，成功编写代码，运行后的效果如下图。这个实例比较典型，知识运用得比较综合，在实际工作中也比较实用！
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：Sub 成绩汇总()Dim arr1()arr = Range("a2", Cells(Rows.Count, "f").End(xlUp))Set d = CreateObject("scripting.dictionary")For i = 1 To UBound(arr) If d.exists(arr(i, 1)) = False Then n = n + 1 d(arr(i, 1)) = n ReDim Preserve arr1(1 To 6, 1 To n) arr1(1, n) = arr(i, 1) arr1(2, n) = arr(i, 2) arr1(3, n) = arr(i, 3) arr1(4, n) = arr(i, 4) arr1(5, n) = arr(i, 5) arr1(6, n) = arr(i, 6) Else m = d(arr(i, 1)) arr1(2, m) = arr1(2, m) + arr(i, 2) arr1(3, m) = arr1(3, m) + arr(i, 3) arr1(4, m) = arr1(4, m) + arr(i, 4) arr1(5, m) = arr1(5, m) + arr(i, 5) arr1(6, m) = arr1(6, m) + arr(i, 6) End IfNext[h2].Resize(n, 6) = Application.Transpose(arr1)End Sub
6、编写好代码，点击工具栏中的【运行】按钮！
7、一贽弘兑苎劳永逸，平时我们只需录入数据，月末我们只需一点，就可以把庞大的数据分类汇总成功！要比用函数公式还快捷！
