Excel VBA需求：多状态单元格变更时自动写入时间戳

修改思路 #

原代码仅支持单个列区域，且直接用固定偏移量会导致非目标单元格修改时误触发时间戳。需先精准定义所有状态单元格范围，再对应生成时间戳。

修改后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 用Union整合所有状态单元格区域，按需添加更多列（示例为B/F/J列3行及以下，可自行调整行范围）
    Dim targetRng As Range
    Set targetRng = Union(Range("B3:B100"), Range("F3:F100"), Range("J3:J100"))
    ' 如需添加更多列，继续追加Union参数，比如Range("N3:N100")
    
    ' 判定修改单元格是否在目标区域内，不在则直接退出
    If Intersect(Target, targetRng) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Dim cell As Range
    ' 遍历所有被修改的目标单元格，生成对应时间戳
    For Each cell In Intersect(Target, targetRng)
        ' 状态单元格偏移3列即为对应时间戳单元格（B→E、F→I、J→M，以此类推）
        cell.Offset(0, 3).Value = Now
    Next cell
    Application.EnableEvents = True
End Sub

关键说明 #

• 用Union方法可整合任意数量的状态单元格区域，适配30+场景的需求
• 遍历修改单元格的逻辑，确保只有目标状态单元格变更时才生成时间戳，避免误触发
• 保留EnableEvents开关，防止代码循环触发Worksheet_Change事件

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