Excel VBA开发需求：实现A-C列单元格自动求和至D列对应行

嘿，这个需求其实用Excel自带功能或者简单的VBA就能轻松搞定，给你两种实用方案：

方案一：用SUM函数快速实现（最简单，无需宏） #

这是最直接的方法，完全依赖Excel内置函数：

• 选中D1单元格，输入公式：=SUM(A1:C1)
• 把鼠标放在D1单元格右下角的填充柄（那个小方块）上，按住左键往下拖动到D100，这样1-100行的D列都会自动套用这个公式
• 原理：SUM函数天生会把空白单元格当作0处理，完美匹配你“空白视为0”的要求。不管你是手动在A/B/C列输入数据，还是通过添加按钮逐行录入，只要对应行的A/B/C有值，D列会立刻算出三者的总和。

方案二：用VBA实现实时自动计算（适合灵活交互场景） #

如果你希望不用提前下拉公式，而是在用户录入数据时自动触发计算，或者和你的“添加按钮”深度配合，可以试试VBA方案：

1. 打开Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里找到你的目标工作表（比如Sheet1），双击它
3. 在右侧的代码窗口中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监控A1到C100范围内的单元格变化
    If Not Intersect(Target, Range("A1:C100")) Is Nothing Then
        Dim targetRow As Range
        For Each targetRow In Target
            ' 定位当前行的D列单元格
            Dim sumCell As Range
            Set sumCell = Me.Cells(targetRow.Row, "D")
            ' 计算当前行A-C列的总和（空白自动按0算）
            sumCell.Value = WorksheetFunction.Sum(Me.Range("A" & targetRow.Row & ":C" & targetRow.Row))
        Next targetRow
    End If
End Sub

4. 保存文件时选择.xlsm格式（因为包含宏，普通.xlsx会丢失宏代码）

• 这个代码的作用是：只要A1-C100范围内的单元格内容发生变化，就自动计算对应行D列的总和，完全不需要手动设置公式。配合你的添加按钮使用时，新录入的行只要在1-100范围内，都会自动触发计算逻辑。

小提示 #

• 方案一更适合普通用户，操作简单，无需启用宏，兼容性更好
• 方案二更适合需要自定义交互的场景，自动化程度更高

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