1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub合计()'求和Dim rng As RangeFor Each rng In Range("e3:e"稆糨孝汶; & [d1048576].End(xlUp).Row)rng=rng.Offset(0,-2)+rng.Offset(0,-1)NextFor Each rng In Range(Cells(13,3),Cells(13,[xfd12].End(xlToLeft). Column))rng=WorksheetFunction.Sum(rng.Offset(-10, 0).Resize(10))Next'删除代码Dim Vbc As Object For Each Vbc In Application.ThisWorkbook.VBProject.VBComponents If Vbc.Type=1 Then With Application.VBE.ActiveVBProject.VBComponents .Remove .Item(Vbc.Name) End With End If NextEnd Sub
5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，工作表中行列的合计均已算出，同时彻底删除代码
