请求创建Excel按钮：将指定单元格区域数值累加至目标区域并清空原区域

步骤1：明确核心区域（按需调整） #

先对应你的工作表结构定义两个关键区域：

• 销量录入区：B列指定范围（比如B2:B10，对应各类饮品的单次销量输入），C、D列为自动计算列（单价、销售额）
• 当日台账区：与录入区结构完全匹配的区域（比如同表的F2:F10，或其他工作表如台账表的B2:B10）

步骤2：创建按钮并绑定宏 #

1. 打开「开发工具」选项卡 → 点击「插入」→ 选择「按钮（窗体控件）」，在红色单元格位置绘制按钮
2. 弹出「指定宏」窗口，点击「新建」进入VBA编辑器

步骤3：编写VBA代码 #

将以下代码粘贴到模块中，根据实际情况修改注释标注的参数：

Sub 累加销量并清空()
    Dim 录入区 As Range, 台账区 As Range
    Dim 单格 As Range
    
    ' --------------------------
    ' 请根据你的表格修改以下区域
    Set 录入区 = ThisWorkbook.Sheets("Sheet1").Range("B2:B10") ' 销量输入的B列范围
    Set 台账区 = ThisWorkbook.Sheets("Sheet1").Range("F2:F10") ' 当日台账对应范围（跨表则改为Sheets("台账").Range("B2:B10")）
    ' --------------------------
    
    ' 遍历累加数值
    For Each 单格 In 录入区
        If IsNumeric(单格.Value) And 单格.Value <> "" Then
            ' 按位置匹配累加
            台账区.Cells(单格.Row - 录入区.Row + 1, 1).Value = _
                台账区.Cells(单格.Row - 录入区.Row + 1, 1).Value + 单格.Value
        End If
    Next 单格
    
    ' 清空录入区
    录入区.ClearContents
    
    ' 可选：操作完成提示
    MsgBox "销量已累加至台账，录入区已清空！"
End Sub

关键调整要点 #

• 区域匹配：务必保证录入区和台账区的单元格数量、顺序完全对应，避免累加错位
• 跨表适配：若台账在独立工作表，修改台账区的Sheets("Sheet1")为目标表名称即可
• 容错处理：代码中的IsNumeric判断可避免非数字输入导致的报错
• 按钮优化：右键按钮→「编辑文字」修改名称，拖动按钮对齐红色单元格

测试验证 #

1. 在B列输入测试数值，等待C、D列公式计算完成
2. 点击按钮，检查台账区数值是否正确累加，B列是否清空

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