怎样使用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调出运行宏窗口，然后单击“执行”按钮，工作表中行列的合计均已算出，同时彻底删除代码