如何让VBA脚本在任意行F至KA列变更时清空同行D列？

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim affectedRange As Range
    Dim cell As Range
    
    ' 仅处理F列至KA列的变更
    Set affectedRange = Intersect(Target, Columns("F:KA"))
    If affectedRange Is Nothing Then Exit Sub
    
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 确保出错时也能恢复事件状态
    
    ' 遍历所有受影响的单元格，清空对应行的D列
    For Each cell In affectedRange
        Me.Cells(cell.Row, "D").ClearContents
    Next cell

Cleanup:
    ' 恢复事件状态
    Application.EnableEvents = True
    If Err.Number <> 0 Then Err.Raise Err.Number ' 抛出错误方便调试
End Sub

关键改动说明 #

• 范围扩展：把原脚本中固定第7行的Range("F7:KA7")替换为Columns("F:KA")，覆盖所有行的目标列范围
• 多行处理：通过For Each遍历受影响的单元格，支持用户同时修改多个单元格（比如整行粘贴）的场景，确保每一行的D列都被清空
• 避免循环触发：添加Application.EnableEvents = False，因为ClearContents操作会再次触发Worksheet_Change事件，导致无限循环；操作完成后必须恢复事件状态
• 错误防护：加入错误处理分支，保证即使脚本运行出错，事件状态也能被正常恢复，避免后续的单元格变更无法触发脚本

原脚本的局限在于硬编码了第7行，仅能处理该行的变更，修改后的脚本可覆盖所有行的F-KA列变更需求。

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