怎样使用VBA让VBA代码自行删除？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

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

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，工作表中行列的合计均已算出，同时彻底删除代码