例如：
相应修改
它将每小时检查一次，然后在下午5点清除射程

Sub clearRange()

Dim bookingWS As Worksheet
bookingWS = ActiveSheet

    If Hour(Now()) = 17 Then 'check if 5pm
        'Clear content Monthly
        bookingWS.Range("A2") = Date
        If Range("A2").Value = Range("B2") Then
            Sheets("Sheet1").Range("D1:D100").ClearContents
        End If
    End If

    Application.OnTime Now() + TimeValue("01:00:00"), "clearRange" 'run every hour
    
End Sub

然后打开工作簿

Private Sub Workbook_Open()
    clearRange
End Sub

如果你想停止循环使用

Application.OnTime EarliestTime:=Now() + TimeValue("01:00:00"), _ 
 Procedure:="clearRange", Schedule:=False