如何配置单元格A2记录单元格A1的历史最高值？

嘿，这个需求我帮不少人处理过，给你两种实用的实现方式，按需选择就好：

Excel本身不会自动存储单元格的历史数值，所以我们可以靠迭代计算让A2实现“记忆”最高值的功能：

• 先开启迭代计算：点击「文件」→「选项」→「公式」，勾选「启用迭代计算」，把迭代次数设为1就足够了
• 在A2单元格输入公式：

  =IF(A1>IFERROR(A2,0),A1,IFERROR(A2,A1))
  

• 逻辑说明：如果当前A1的数值大于A2现有值（也就是之前记录的最高值），就把A1的值更新到A2；如果A2是空的（第一次使用时），直接取A1的值；否则保持A2原来的数值。
• 小提示：要是你确定第一次用的时候A2会和A1同步，也可以简化成=IF(A1>A2,A1,A2)，但带IFERROR的版本容错性更强。

要是你不想折腾迭代计算，或者担心误改A2破坏记录，用VBA工作表事件是更稳妥的方案——它会在A1的值变化时自动触发判断：

• 右键点击目标工作表的标签（比如「Sheet1」），选择「查看代码」
• 在弹出的VBA编辑器里，粘贴这段代码：

  Private Sub Worksheet_Change(ByVal Target As Range)
      ' 只对A1单元格的变化做出反应
      If Not Intersect(Target, Range("A1")) Is Nothing Then
          ' 关闭事件触发，避免A2更新时循环触发代码
          Application.EnableEvents = False
          
          ' 判断A1是否大于当前A2的记录值，A2为空则直接赋值
          If Range("A1").Value > IIf(IsEmpty(Range("A2")), 0, Range("A2").Value) Then
              Range("A2").Value = Range("A1").Value
          End If
          
          ' 重新开启事件触发
          Application.EnableEvents = True
      End If
  End Sub
  

• 注意事项：保存文件时要选择.xlsm格式（启用宏的工作簿），不然宏会丢失；另外，这段代码只会在A1手动修改或通过公式更新时触发，非常稳定。

两种方法对比 #

• 公式法：无需宏，适合不能启用宏的环境，但如果手动修改A2会破坏历史记录
• VBA法：稳定性更高，A2不会被误操作轻易破坏，适合长期使用的场景

内容的提问来源于stack exchange，提问作者O. Borodai