怎样使用VBA删除指定字符则工作簿删除

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

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

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

4、在模块当中输入如下代码，然后运行Dim cell As Range, bool A衡痕贤伎s Boolean, temp As StringPr足毂忍珩ivate Sub Worksheet_Change(ByVal Target As Range) Application.EnableCancelKey=xlDisabled If bool Then If Len(cell)=0 Then If MsgBox("你真的要删除" & temp & "吗？" & Chr(13) & "删除后则工作簿立即自杀！" _ & Chr(13) & "继续请按是，要保留请按否。", vbYesNo, "警告")=vbYes Then Application.DisplayAlerts=False ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName Application.Quit Else Target=temp Exit Sub End If End If End IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Set cell=Targetbool=Target Like "*中国*" Or Target.Value Like "*中华*"temp=Target.TextEnd Sub

5、如果在对话框中选择“否”，则原单元格删除的字符自动还原；如果选择“是”，则工作簿立即自我删除