Excel VBA需求：指定行更新K列最后修改时间（排除首两行）

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim monitorRange As Range
    Set monitorRange = Me.Range("A3:J" & Me.Rows.Count) ' 定义监控范围：A-J列第3行及以下
    
    ' 检查修改的单元格是否在监控范围内
    If Not Intersect(Target, monitorRange) Is Nothing Then
        Application.EnableEvents = False ' 关闭事件触发，避免修改K列时再次触发本过程
        
        Dim affectedRows As Range
        Set affectedRows = Intersect(Target.EntireRow, Me.Range("K:K")) ' 获取对应行的K列单元格
        
        affectedRows.Value = Now ' 为这些单元格赋值当前日期时间
        
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

原代码的问题分析 #

• 赋值范围错误
  原代码中Target.Offset(0, 1) = Now会对每个被修改的单元格，都往右侧偏移一列赋值。比如修改A3单元格时会改B3，修改J3时会改K3，这就导致了“修改目标单元格右侧所有内容”的问题。我们需要固定定位到对应行的K列，而不是每个单元格的右侧列。

• 未排除前两行
  原代码监控A:J整列，没有排除第1、2行，需要把监控范围限定为A3:J及以下的行。

• 遗漏循环触发防护
  修改K列内容时会再次触发Worksheet_Change事件，导致代码循环执行。通过Application.EnableEvents = False临时关闭事件触发，完成赋值后再恢复即可避免这个问题。

额外说明 #

• 如果只需要日期不需要时间，可将Now替换为Date。
• 代码中用Me指代当前工作表，确保在对应工作表的代码模块中使用时不会出错。

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