Excel中公式填充的单元格数据如何冻结避免自动更新？

方法1：临时手动冻结已有日期（适合已生成数据快速修复） #

如果已经用现有公式生成了日期，想要快速批量冻结：

• 选中所有「Block Date」列已经生成的日期单元格
• 右键选择「复制」（或快捷键Ctrl+C）
• 右键点击同一选中区域，选择「粘贴选项」里的「值」即可，公式会被替换为固定日期数值，不会再更新

方法2：启用迭代计算实现自动生成固定日期（无需VBA，公式实现） #

这个方法可以实现自动化效果，状态改成Blocked时自动写入固定日期，状态改回其他值可清空，日期不会随时间变动：

1. 先开启迭代计算：
   • 点击Excel左上角「文件」-「选项」-「公式」
   • 勾选「启用迭代计算」，把「最多迭代次数」设为1，点击确定
2. 在「Block Date」列对应单元格（比如C3）输入以下公式：
   =IF(B3="Blocked",IF(C3="",TODAY(),C3),"")
   逻辑说明：当B列状态为Blocked时，先判断当前单元格是否为空，如果是空就写入当天日期，如果已经有日期就保留原有值；如果状态不是Blocked就清空单元格。

方法3：VBA事件触发（适合更稳定的自动化场景） #

如果允许使用宏，可以用工作表变更事件实现，效果更稳定，不会受迭代计算设置影响：

• 按下Alt+F11打开VBA编辑器，在左侧项目栏双击你要设置的工作表
• 把以下代码粘贴到代码窗口中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 假设状态列为B列，Block Date列为C列，可按需修改列号
    If Target.Column = 2 Then
        If Target.Value = "Blocked" Then
            ' 对应行的C列写入当前日期，固定值不会更新
            Cells(Target.Row, 3).Value = Date
        Else
            ' 状态改回其他值时清空日期，不需要可以删除这行
            Cells(Target.Row, 3).ClearContents
        End If
    End If
End Sub

• 保存文件为「Excel 启用宏的工作簿（*.xlsm）」格式即可生效

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