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

2025-04-08 11:22:36

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

使用VBA实现EXCEL指定时间自动清除所有内容
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢