使用VBA实现EXCEL指定时间自动清除所有内容

1、打开需要处理的EXCEL文件，如图所示。

3、点击左侧“工程栏”中的“This Workbook”

5、在Private和End Sub之间，录入程序如下Dim a, b As Stringa = Format(Date, "yyyy年m月d日") '当前年月日If a > "2017年9月10日" Then Cells.Select Selection.ClearContentsEnd If

7、关闭VBA程序窗口，文件另存为“EXCEL 启用宏的工作簿”