随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA让VBA代码自行删除?
工具/原料
手机
方法/步骤
首先在开发工具中打开VBA编辑器
在单元格区域当中输入一些内容作为例子
在VBA编辑器中插入模块
在模块当中输入如下代码，然后运行
Sub合计()
'求和
Dim rng As Range
For Each rng In Range("e3:e" & [d1048576].End(xlUp).Row)
rng=rng.Offset(0,-2)+rng.Offset(0,-1)
Next
For 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
Next
End Sub
用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，工作表中行列的合计均已算出，同时彻底删除代码
