当到达特定日期时删除指定单元格数据的公式求助

公式动态显示方案（无需VBA） #

Excel公式无法直接修改单元格的原始内容，但可以在A1单元格直接写入公式，实现动态显示效果：

=IF(TODAY()>=A2,"",5)

• TODAY() 会自动获取当前系统日期
• 当系统日期≥A2单元格的7/1/23时，A1显示为空；未到达该日期时，显示数字5

VBA自动修改方案（直接清空A1内容） #

如果需要在日期到达时直接清空A1的原始内容，可使用VBA宏：

1. 按 Alt+F11 打开VBA编辑器
2. 在左侧工程面板双击当前工作表名称
3. 粘贴以下代码：

Private Sub Worksheet_Activate()
    If Date >= Range("A2").Value Then
        Range("A1").ClearContents
    End If
End Sub

• 每次激活该工作表时，系统会自动检查日期，符合条件则清空A1

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