表格内容也可以使用类似的方法，只需要将代码中的表格范围改为对应的工作表即可。以下是示例代码： 复制 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 方法清除行内容。你可以根据自己的需求修改清除时间和工作表名称。请把代码写出来

对于这个问题，我们需要先确定清除的时间和要清除的工作表，然后再通过循环遍历表格中的每一行，并使用 ClearContents 方法清除行内容。以下是示例代码：

Sub ClearTableContents()
    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("Table1")
    
    '获取表格范围
    Set tableRange = worksheet.Range("A2:F11")
    
    '如果当前时间晚于清除时间，则清除表格内容
    If Now > clearTime Then
        For Each row In tableRange.Rows
            row.ClearContents
        Next row
    End If
End Sub

在上述代码中，我们设置了清除时间为上午 10 点，并获取了名为 "Table1" 的工作表和要清除的表格范围。如果当前时间晚于清除时间，则使用循环语句遍历表格中的每一行，并使用 ClearContents 方法清除行内容。你可以根据自己的需求修改清除时间和工作表名称。