Excel VBA需求：每日结束自动清除指定单元格区域内容

以下提供两种实用方案，适配不同使用场景：

方案1：关闭工作簿时自动清除（推荐日常办公场景） #

适合每天结束工作后关闭Excel文件时自动执行清除，确保当日数据收集完成后清理指定区域。

1. 按Alt + F11打开VBA编辑器
2. 在左侧项目窗格双击ThisWorkbook模块
3. 粘贴以下代码：

' 工作簿关闭时执行清除操作
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 可根据实际需求修改目标工作表和区域
    Sheets("Sheet1").Range("D1:D100").ClearContents
    ' 可选：自动保存文件，避免手动保存遗漏
    Me.Save
End Sub

4. 将文件保存为**启用宏的工作簿（.xlsm）**格式，否则宏无法生效

方案2：指定每日固定时间自动清除（适合长时间保持文件打开的场景） #

如果需要在每日固定时间（比如下午6点，数据收集截止后）自动清除，无需手动关闭文件，可使用定时触发方式：

1. 打开VBA编辑器，右键项目窗格 -> 插入 -> 模块，添加一个标准模块
2. 粘贴以下代码：

Dim ClearTime As Date

' 设置每日定时清除任务
Sub SetDailyClearTask()
    ' 设置每日执行时间，这里为18:00，可按需修改
    ClearTime = Date + TimeValue("18:00:00")
    ' 注册定时任务
    Application.OnTime ClearTime, "ClearSpecifiedRange"
End Sub

' 执行清除操作的子过程
Sub ClearSpecifiedRange()
    Sheets("Sheet1").Range("D1:D100").ClearContents
    ' 重新注册次日的定时任务，实现每日循环
    SetDailyClearTask
End Sub

' 关闭工作簿时取消定时任务，避免残留
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next ' 防止任务未注册时抛出错误
    Application.OnTime EarliestTime:=ClearTime, Procedure:="ClearSpecifiedRange", Schedule:=False
End Sub

3. 在ThisWorkbook模块中添加启动代码，确保打开文件时自动激活定时任务：

Private Sub Workbook_Open()
    SetDailyClearTask
End Sub

4. 保存为.xlsm格式，启用宏后生效

注意事项 #

• 确保Excel启用宏功能：文件 -> 选项 -> 信任中心 -> 信任中心设置 -> 宏设置，选择"启用所有宏"或"启用签名宏"
• 方案2中若手动修改系统时间，可能导致定时任务提前或延迟触发
• 若不需要每日循环执行，可删除ClearSpecifiedRange里的SetDailyClearTask语句

内容的提问来源于stack exchange，提问作者thyestes