如何修改Excel VBA代码实现A/D列变更时自动更新F列日期？

原代码存在两个核心问题：

• 监测范围包含了不需要的B、C列，不符合你只监测A2:A10和D2:D10的需求
• 使用Offset(0,5)会根据修改列的位置偏移，比如修改D列时会把日期写到I列，而非目标F列

以下是修正后的代码，完美匹配你的需求：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim monitorRng As Range
    ' 定义需要监测的范围：A2:A10 和 D2:D10
    Set monitorRng = Union(Range("A2:A10"), Range("D2:D10"))
    
    ' 如果修改的区域不在监测范围内，直接退出
    If Intersect(Target, monitorRng) Is Nothing Then Exit Sub
    
    ' 关闭事件触发，避免写入日期时再次触发Change事件导致循环
    Application.EnableEvents = False
    
    ' 遍历所有修改的单元格（支持批量修改）
    Dim cell As Range
    For Each cell In Intersect(Target, monitorRng)
        ' 定位到当前行的F列（列号为6）写入当前日期时间
        Cells(cell.Row, 6).Value = Now
    Next cell
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键修改说明： #

1. 精准监测范围：用Union函数合并A2:A10和D2:D10，只关注需要的列
2. 固定目标列：通过Cells(cell.Row, 6)直接定位到当前行的F列，不管修改的是A还是D列，日期都会写入正确位置
3. 避免循环触发：加入Application.EnableEvents控制，防止写入日期时重复触发Worksheet_Change事件
4. 支持批量修改：遍历每个修改的单元格，确保批量编辑时每行都能正确写入日期

使用方法： #

右键点击目标工作表的标签（比如Sheet1），选择「查看代码」，将上述代码粘贴到弹出的VBA编辑器窗口中，保存文件为启用宏的格式（.xlsm）即可生效。

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