如何用Excel公式实现下拉列表选择增减单元格数值？

纯Excel公式无法直接修改自身单元格的值（会触发循环引用错误），但通过数据验证+VBA工作表事件可以实现你要的效果，步骤如下：

1. 设置数据验证下拉列表 #

• 选中需要应用功能的单元格区域（比如A1，或批量的A1:C10）
• 点击「数据」选项卡 → 「数据验证」
• 在弹出的窗口中：
  • 允许类型选「序列」
  • 来源框输入1,-1（英文半角逗号分隔）
  • 勾选「提供下拉箭头」，确定保存

2. 添加VBA宏实现自动加减 #

要在选择下拉选项后修改单元格本身的值，必须用工作表变更事件：

• 右键当前工作表的标签（比如「Sheet1」），选择「查看代码」
• 在弹出的VBA编辑器中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 自定义需要应用功能的单元格区域，按需修改
    Dim ApplyRange As Range
    Set ApplyRange = Me.Range("A1:C10")
    
    ' 仅处理目标区域内的单个单元格变更
    If Not Intersect(Target, ApplyRange) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False ' 禁用事件避免循环触发
        Select Case Target.Value
            Case 1
                Target.Value = Target.Value + 1
            Case -1
                Target.Value = Target.Value - 1
        End Select
        Application.EnableEvents = True ' 恢复事件
    End If
End Sub

关键说明 #

• 代码里的ApplyRange可以改成你需要的任意单元格区域，一次性覆盖所有要实现该功能的单元格，不用逐个设置
• 保存文件时必须选择「Excel启用宏的工作簿（.xlsm）」格式，否则宏会失效
• 初始值可手动设为0，若需要自动初始化空单元格为0，可以在Select Case前加一行：If Target.Value = "" Then Target.Value = 0

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