你可以使用 VBA 中的日期函数和循环语句来实现根据时间变化清除表格内容的功能。以下是一些示例代码，你可以根据自己的需求进行修改： 复制 Sub ClearTableBasedOnTime() Dim currentTime As Date Dim clearTime As Date Dim tableRange As Range Dim row As Range '设置清除时间 clearTime = #10:00:00 AM# '获取表格范围 Set tableRange = Range("A1:F10") '获取当前时间 currentTime = Now '如果当前时间晚于清除时间，则清除表格内容 If currentTime > clearTime Then For Each row In tableRange.Rows row.ClearContents Next row End If End Sub 在上述代码中，我们设置了清除时间为上午 10 点，表格范围为 A1:F10。如果当前时间晚于清除时间，则使用循环语句遍历表格中的每一行，并使用 ClearContents 方法清除行内容。你可以根据自己的需求修改清除时间和表格范围。删除对应sheet里的

表格内容也可以使用类似的方法，只需要将代码中的表格范围改为对应的工作表即可。以下是示例代码： 复制 Sub ClearSheetBasedOnTime() Dim currentTime As Date Dim clearTime As Date Dim worksheet As Worksheet Dim tableRange As Range Dim row As Range '设置清除时间 clearTime = #10:00:00 AM# '获取工作表 Set worksheet = ThisWorkbook.Worksheets("Sheet1") '获取表格范围 Set tableRange = worksheet.Range("A1:F10") '获取当前时间 currentTime = Now '如果当前时间晚于清除时间，则清除表格内容 If currentTime > clearTime Then For Each row In tableRange.Rows row.ClearContents Next row End If End Sub 在上述代码中，我们获取了名为 "Sheet1" 的工作表，并设置了清除时间与表格范围。如果当前时间晚于清除时间，则使用循环语句遍历表格中的每一行，并使用 ClearContents 方法清除行内容。你可以根据自己的需求修改清除时间和工作表名称。