1、打开一个excel文件,新建一个文档。
2、进入visual basic,新建一个模块备用
3、在模块中输入下面的代码:
Sub clear()
If MsgBox("是否要清空数据?", 1 + vbokNo) = vbOK Then
Range("A1:Z100").Clear
End If
End Sub
4、执行后,A1-Z100的区域的数据就被清除了。
5、

1、打开一个excel文件,新建一个文档。
2、进入visual basic,新建一个模块备用
3、在模块中输入下面的代码:
Sub clear()
If MsgBox("是否要清空数据?", 1 + vbokNo) = vbOK Then
Range("A1:Z100").Clear
End If
End Sub
4、执行后,A1-Z100的区域的数据就被清除了。
5、
