Excel公式求助：单元格值从0变1时触发另一单元格计算

一、公式驱动方案（无需VBA） #

如果不需要精准的「状态变化瞬间」触发，而是只要单元格变为1后就显示计算结果，可直接关联公式：

• 假设重复检测公式所在单元格为D582，目标计算单元格为E582
• 在E582中写入：

  =IF(D582=1, [你的计算公式], "")
  

  例：若需计算C列从第2行到当前行的和，可写成=IF(D582=1, SUM($C$2:C582), "")

如果需要仅在第一次从0变1时计算并保留结果（后续D582变回0也不消失），需结合辅助单元格：

1. 新增辅助列（如F列），F582写入：

   =IF(D582=1, IF(F582="", NOW(), F582), "")
   

   该公式会在D582首次变为1时记录当前时间，之后保持不变
2. 目标单元格E582写入：

   =IF(NOT(ISBLANK(F582)), [你的计算公式], "")
   

二、VBA事件驱动方案（精准触发状态变化） #

如果需要仅在检测单元格从0变为1的瞬间触发复杂运算或固定操作，用工作表变更事件实现：

1. 按Alt+F11打开VBA编辑器
2. 双击目标工作表打开代码窗口，粘贴以下代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       Application.EnableEvents = False
       ' 替换D:D为你放重复检测公式的列
       If Not Intersect(Target, Me.Range("D:D")) Is Nothing Then
           For Each cell In Target
               ' 仅当单元格从0变为1时触发
               If cell.Value = 1 And cell.Value <> cell.Value2 Then
                   ' 替换E为目标计算列，写入你的计算逻辑
                   Me.Cells(cell.Row, "E").Value = Application.Sum(Me.Range("C2:C" & cell.Row))
               End If
           Next cell
       End If
       Application.EnableEvents = True
   End Sub
   

   注意：
   • 需将代码中的列标识（D:D、E）替换为实际使用的列
   • 保存文件时需选择.xlsm格式（启用宏的工作簿）

三、优化提示 #

你的重复检测公式可简化为：

=--(COUNTIF($C$2:C2082, C582)>1)

用双负号将布尔值直接转换为1/0，写法更简洁。

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