如何整合VBA代码实现选值输出并解决插入行后函数失效问题

问题分析 #

原代码通过硬编码固定行号（如B25、B27）绑定名称，插入新行后目标行位置偏移，导致代码无法匹配正确单元格，完全失去作用。需要将代码改为动态匹配当前操作行，同时保留“输入数值累加至对应单元格、记录输入值并清空输入栏”的核心功能，且支持任意插入新行。

改进后的VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理B列的单个单元格变更（可根据实际列调整）
    If Not Intersect(Target, Me.Range("B:B")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        
        ' 累加数值到C列，空单元格默认按0处理
        Me.Cells(Target.Row, "C").Value = Val(Me.Cells(Target.Row, "C").Value) + Val(Target.Value)
        ' 记录输入值到D列，然后清空B列输入栏
        Target.Copy Me.Cells(Target.Row, "D")
        Target.ClearContents
        
        Application.EnableEvents = True
    End If
End Sub

代码说明 #

1. 动态行匹配：通过Target.Row获取当前操作单元格的行号，不再依赖固定行号，插入新行后自动适配新行位置。
2. 范围限制：用Intersect(Target, Me.Range("B:B"))仅响应B列的单元格变更，避免无关操作触发代码。
3. 容错处理：Val()函数确保空单元格或非数值内容按0计算，防止运行报错。
4. 事件控制：仅在需要时开启/关闭事件，避免代码执行时触发循环变更。

使用说明 #

• 将原代码替换为上述新代码，保存后启用宏。
• 保持列结构：名称列（如A列）、数值输入列（B列）、累加结果列（C列）、输入记录列（D列），可根据实际需求修改代码中的列标识（如将"B:B"改为"E:E"）。
• 插入新行后，直接在新行的输入列（如B列）输入数值，代码会自动执行累加和记录操作。

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