作者：乔山办公网日期：
返回目录：excel表格制作
Public Sub 清除袭本百工作度表知()
Worksheets("sheet1").UsedRange.ClearContents
End Sub
Public Sub 清除所有道表()
Dim WS As Worksheet
For Each WS In Worksheets
WS.UsedRange.ClearContents
Next
End Sub
区域.ClearContents
如：sheet1.range("A1:B1").ClearContents
类似的需求可以直接复制宏，再查看宏代码。
excel软件教程专题来自：系统圣地
指定一个变量来储存操作记录
单元格或者控件名称都可以
SUB 清空数据()
IF [A1]=1 THEN EXIT SUB
****
[A1]=1'-----比如这样，在你的清空代码前后加一句
END SUB
1、新建一个EXCEL工作表，而后打开，百在下方工作表标签位置，就是sheet1的地方，点击鼠标右键，而后在弹出的度选项卡里面找到查看代码
2、点击查看代码，而后会弹出EXCEL支持的后台代码VBA界面，我们我们可以看到左知侧是我们的工作表标签，而后右边就是代码窗口
3、我们在sheet1的右侧代码窗口，输入代码，这里道的意思是区域的值，等于 "欢迎光临"
4、代码输入完成后，我们开始对代码开始测试执行效果，在VBA代码窗口上方，找到绿色的三角箭头
5、点击绿色的运行箭头，而后系专统会弹出一个新的对话框属，我们在对话框里面选择我们刚才新建的test代码，而后找到运行菜单就可以了