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&"