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

 时间:2026-02-14 07:03:39

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 String

a = Format(Date, "yyyy年m月d日")   '当前年月日

If a > "2017年9月10日" Then

    Cells.Select

    Selection.ClearContents

End If

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

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

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

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

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

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

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

  • VBA如何将数据塞到另外的excel
  • 使用VBA程序进行单元格颜色填充
  • Excel如何快速选择非空单元格
  • 如何用VBA一次性插入多张工作表
  • Excel VBA实现取字符串中数字并求和
  • 热门搜索
    旅游景区质量等级的划分与评定 海宁旅游 康辉旅游线路报价 澳大利亚旅游景点 广东省旅游职业技术学校 湖南商贸旅游职业技术学院 武义旅游 北京旅游景区 玉溪旅游 潮汕旅游攻略