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

时间：2024-10-12 16:42:14

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

2、点击组合键“ALT+F11”调用并打开VBA程序界面，如图所示。

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

4、依次点选“Workbook”和“Open”

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

6、点击运行按钮，测试程序运行正常

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

8、测试，打开EXCEL文件，时间为2017/9/13大于2017/9/10，程序成功的自动献皲咝犴删除了所有内容。