当然可以实现这个需求！你用Worksheet_Change事件的思路完全没问题，之前代码没生效应该是没处理好区域匹配和避免事件循环这两个关键点。下面给你一个完整的可运行方案：

核心思路 #

1. 先把所有需要监控的单元格区域列出来，方便后续维护
2. 在工作表的Change事件里，判断被修改的单元格（Target）是否落在这些监控区域内
3. 找到对应区域的起始行，将该行的D列单元格设置为当前日期/时间
4. 禁用事件避免修改D列时再次触发Change事件，操作完成后恢复

完整代码实现 #

把这段代码复制到你需要实现功能的工作表模块里（不是标准模块）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要监控的所有单元格区域
    Dim monitorAreas As Variant
    monitorAreas = Array(Range("H6:Q11"), Range("H13:Q18"), Range("H20:Q25"))
    
    Dim area As Range
    Dim intersectRange As Range
    
    ' 禁用事件，避免修改D列时触发循环
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 出错时确保恢复事件状态
    
    ' 遍历所有监控区域
    For Each area In monitorAreas
        ' 检查被修改的单元格是否和当前监控区域有交集
        Set intersectRange = Intersect(Target, area)
        If Not intersectRange Is Nothing Then
            ' 将对应区域起始行的D列设置为当前日期（用Now()可以包含时间）
            Me.Cells(area.Row, "D").Value = Date
            ' 如果需要包含具体时间，替换上面的Date为Now()
            ' Me.Cells(area.Row, "D").Value = Now()
            Exit For ' 找到匹配区域后退出循环，提升效率
        End If
    Next area

Cleanup:
    ' 恢复事件状态
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "发生错误：" & Err.Description, vbExclamation
    End If
End Sub

关键细节说明 #

• 区域维护：如果后续需要新增或修改监控区域，只需要修改monitorAreas数组里的内容即可，非常灵活
• 事件循环避免：必须加上Application.EnableEvents = False，因为修改D列单元格也会触发Worksheet_Change事件，会导致无限循环
• 多单元格修改兼容：不管是单个单元格修改，还是批量粘贴修改，Intersect函数都能正确识别是否落在监控区域内
• 日期格式：用Date只会记录年月日，用Now()会记录具体的时分秒，你可以根据需求选择

常见问题排查 #

如果代码还是没生效，检查这几点：

• 代码是不是放在了正确的工作表模块里？（右键工作表标签→查看代码，粘贴到这里）
• 是不是不小心禁用了Excel事件？可以在立即窗口输入Application.EnableEvents = True回车恢复
• 监控区域的地址是不是写错了？比如有没有漏写行号或者列号

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