1.本节课主要讲的是VBA基础-2.8AfterSave，在点击【开发工具】-【Visual Basic】，在选择此工作表，在选择AfterSave模式，在代码处写上arr=Range（“b2，[d2].End(xIDown))。

2.在代码处将不需要的代码删除，在代码处在添加Fori=1 To UBound（arr） ReDim Preserve arr1（1 To i）。

3.在代码处在添加arr（i）=arr（i,1)+arr（i,2)+arr（i,3) Next [e2].Resize(UBound(arr),1)=Application.Transpose(arr1)。

4.在将上面的代码变成绿色，在下面在添加上For n=2To UBound（arr）Step2 n=n&","&n+&":"&n+1。

5.在将代码处的进行换行，在下面在添加上r1=(Left(r,Len(r)-1))。

6.在给代码的下面在添加上Range（r1).Color=RGB(80,230,101)。

7.在将表格的颜色去掉，在将合计一列的数字删除，将表格保存。

8.在点击一下表格会发现把合计算了出来，还隔一行就会出现绿色，这是代码的结果。

9.在对立面一行的代码进行修改，r=r&"a"&n&","&"e"n&","。

10.这样在将表格的颜色取消，在重新点击会发现绿色的区域只出现在有内容的部分。