如何在Worksheet Change事件宏中以修改的单元格为变量执行行操作？

核心问题 #

1. 重复触发事件：剪切粘贴操作会修改单元格内容，再次触发Worksheet_Change事件，导致代码循环执行。
2. 范围选择错误：原代码中CopyRange被定义为A到F列，不符合需求中“A到E列”的要求。
3. 冗余选中操作：使用Select和Selection不仅效率低下，还可能引发意外的界面行为。

修复后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim targetRow As Long
    
    ' 指定需要监听的单元格范围
    Set KeyCells = Me.Range("A2:A15")
    
    ' 处理多单元格批量修改的情况，直接退出避免出错
    If Target.Count > 1 Then Exit Sub
    
    ' 判断修改是否发生在目标范围内
    If Not Application.Intersect(KeyCells, Target) Is Nothing Then
        ' 关闭事件触发，防止重复执行
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        
        targetRow = Target.Row
        
        ' 1. 删除该行F列的内容
        Me.Cells(targetRow, "F").ClearContents
        
        ' 2. 将A-E列内容剪切到B列起始位置（即B-F列）
        Me.Range("A" & targetRow & ":E" & targetRow).Cut Destination:=Me.Range("B" & targetRow)
        
        ' 3. 重新选中A列对应单元格
        Me.Range("A" & targetRow).Select
        
        ' 恢复事件触发和屏幕更新
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub

关键修复说明 #

• 解决重复触发：操作前设置Application.EnableEvents = False，完成后恢复，彻底切断事件循环。
• 优化单元格操作：摒弃Select/Selection，直接通过行列索引定位单元格，提升代码稳定性和执行效率。
• 修正范围逻辑：明确选择A到E列进行剪切，完全匹配需求描述。
• 增加容错处理：判断是否为多单元格修改，避免批量操作时代码报错。

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