Excel单元格自身值随其他单元格输入自动累加的实现问题咨询

错误原因 #

你之前的两种方案均触发了循环引用：Excel默认关闭迭代计算功能，当公式引用自身所在单元格、或多个单元格形成互相引用的闭环时，默认会返回0且不会自动计算。

方案1：启用迭代计算（操作无门槛，适合新手） #

• 打开Excel设置：点击左上角「文件」→ 底部「选项」→ 选择「公式」分类
• 勾选「启用迭代计算」，将「最多迭代次数」设置为1，点击确认保存设置
• 给A1单元格输入公式 =A1+B1
• 后续每次在B1输入单局新增经验，按回车后A1就会自动累加对应数值。如果需要修正总经验，直接选中A1手动输入正确数值覆盖即可。

方案2：VBA事件实现（更稳定，无循环引用风险） #

• 按快捷键 Alt+F11 调出VBA编辑器
• 在左侧工程面板双击你要使用的对应工作表（如Sheet1）
• 在弹出的代码编辑框粘贴以下内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监测B1单元格的修改动作
    If Target.Address = "$B$1" Then
        ' 确认输入内容为数值再执行累加
        If IsNumeric(Target.Value) Then
            Range("A1").Value = Range("A1").Value + Target.Value
            ' 累加完成后自动清空B1，方便下次直接输入
            Target.ClearContents
        End If
    End If
End Sub

• 关闭VBA编辑器，将文件保存为「Excel 启用宏的工作簿(*.xlsm)」格式即可使用。

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