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

 时间:2026-04-23 11:16:02

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实现取字符串中数字并求和
  • 热门搜索
    五角星怎么折 职业兴趣怎么写 血压高怎么降压 艾滋病是怎么来的 怎么进入路由器设置界面 excel表格怎么换行 为什么有些人怎么吃都不胖 空气炸锅怎么用 怎么判断床上有螨虫 微信被盗怎么找回