如何设置单元格使其始终保存对应源单元格的历史最高数值？

方案1：内置公式实现（无需写代码） #

你需要先开启Excel的迭代计算功能，避免公式循环引用报错：

• 点击左上角「文件」→「选项」→「公式」
• 勾选「启用迭代计算」，将「最多迭代次数」设置为1，点击保存
  设置完成后在B2单元格直接输入如下公式即可生效：
  =MAX(B1, B2)

注意：如果你的表格其他逻辑不允许开启迭代计算，建议使用下面的VBA方案。

方案2：VBA工作表事件实现（稳定性更高） #

该方案无需修改全局Excel设置，仅在指定工作表生效：

• 按下Alt + F11调出VBA编辑器
• 左侧项目列表中双击需要生效的工作表（如Sheet1）
• 在弹出的代码编辑窗口粘贴如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监控B1单元格的变更
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        ' 仅当B1当前值大于B2已有值时更新B2
        If Range("B1").Value > Range("B2").Value Then
            Range("B2").Value = Range("B1").Value
        End If
    End If
End Sub

• 关闭VBA编辑器即可自动生效，无需额外操作。

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