VBA移动行宏与自动时间戳代码共存运行异常求助

1. 临时禁用事件触发（核心修复） #

MoveRows宏在执行行复制/删除操作时，会触发目标工作表的Worksheet_Change事件，两段代码的单元格操作互相干扰导致报错。在宏执行期间关闭Excel事件触发，完成后再恢复即可解决冲突：

Sub MoveRows()
    ' 关闭事件触发，避免操作单元格时触发Worksheet_Change
    Application.EnableEvents = False
    
    ' 此处保留你原有的MoveRows逻辑（遍历工作表、根据D列值复制删除行）
    ' ...（你的原有代码）
    
    ' 执行完后恢复事件触发
    Application.EnableEvents = True
End Sub

2. 优化Worksheet_Change事件逻辑 #

在事件代码中增加判断，仅响应用户手动输入的变更，排除宏操作引发的单元格变更，同时防止时间戳赋值时重复触发事件：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    ' 仅处理I2:I100区域，且排除宏触发的变更（Application.Caller为空则为手动操作）
    If Not Intersect(Target, Me.Range("I2:I100")) Is Nothing And Application.Caller Is Nothing Then
        Application.EnableEvents = False ' 防止修改单元格再次触发事件
        For Each cell In Intersect(Target, Me.Range("I2:I100"))
            ' 你的时间戳赋值逻辑示例（可根据实际位置调整）
            cell.Value = Now()
            cell.Font.Color = vbRed
        Next cell
        Application.EnableEvents = True
    End If
End Sub

3. 额外注意点 #

• 确保MoveRows宏遍历行时从下往上执行（比如从最后一行到第一行），避免删除行后导致遍历索引错乱，间接引发错误。
• 如果时间戳是写入当前单元格而非偏移列，必须依赖Application.EnableEvents = False阻断事件循环，否则会陷入无限触发。

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