新密市委副书记张宏伟:请问高手,有什么问题
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/12 17:57:50
Sub 清除文件()
Dim c As Integer '定义c为整型变量
For c = 1 To 6
Sheets("文件提交以及查询").Cells(7, c).Value = ""
Next c '依次清除商品入库资料输入与查询区
End Sub
Dim c As Integer '定义c为整型变量
For c = 1 To 6
Sheets("文件提交以及查询").Cells(7, c).Value = ""
Next c '依次清除商品入库资料输入与查询区
End Sub
看上去没问题啊,你什么问题啊