如何修改VBA代码使其从单行扩展至下方相邻行？

针对第2、3行的版本 #

以下代码保留原逻辑，同时让第3行也适用——当A3:C3区域内容变化时，自动清空或设置D3的求和公式：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 设定要监控的行范围：第2行和第3行的A-C列
    Dim monitorArea As Range
    Set monitorArea = Me.Range("A2:C3")
    
    ' 仅当变化的单元格在监控范围内时执行逻辑
    If Not Intersect(Target, monitorArea) Is Nothing Then
        On Error Resume Next
        Application.EnableEvents = False
        
        ' 获取触发变化的单元格所在行号
        Dim currentRow As Long
        currentRow = Target.Row
        
        ' 检查当前行A-C列是否全空
        If Application.WorksheetFunction.CountA(Me.Range("A" & currentRow & ":C" & currentRow)) = 0 Then
            Me.Range("D" & currentRow).ClearContents
        Else
            ' 动态生成对应行的求和公式
            Me.Range("D" & currentRow).Formula = "=SUM(A" & currentRow & ":C" & currentRow & ")"
        End If
        
        Application.EnableEvents = True
        On Error GoTo 0
    End If
End Sub

关键修改点 #

• 把原代码中硬编码的A2:C2替换为可扩展的monitorArea，这里设置为A2:C3即可覆盖需求的下一行；如果后续要加更多行，直接修改这个范围（比如A2:C10）。
• 通过Target.Row动态获取触发事件的行号，避免固定写死行号，让逻辑自动对应到该行的D列。
• 使用Me指代当前工作表，避免因工作表切换导致的引用错误。

通用版本（支持所有有数据的行） #

如果需要让第2行及以下所有行都自动套用这个逻辑，可使用以下代码，它会自动监控到A列最后一行有数据的区域：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastDataRow As Long
    ' 获取A列最后一行有数据的行号
    lastDataRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
    
    Dim monitorArea As Range
    Set monitorArea = Me.Range("A2:C" & lastDataRow)
    
    If Not Intersect(Target, monitorArea) Is Nothing Then
        On Error Resume Next
        Application.EnableEvents = False
        
        Dim currentRow As Long
        currentRow = Target.Row
        
        If Application.WorksheetFunction.CountA(Me.Range("A" & currentRow & ":C" & currentRow)) = 0 Then
            Me.Range("D" & currentRow).ClearContents
        Else
            Me.Range("D" & currentRow).Formula = "=SUM(A" & currentRow & ":C" & currentRow & ")"
        End If
        
        Application.EnableEvents = True
        On Error GoTo 0
    End If
End Sub

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