Excel VBA需求：更新单元格自动填时间，清空时同步清除时间

你可以修改VBA代码，增加对目标单元格是否为空的判断，同时优化范围检测逻辑，实现清空上方单元格时同步清空下方时间：

Sub Worksheet_Change(ByVal Target As Range)
    Dim changedCell As Range
    ' 只处理A1到E1范围内的单元格变更
    Set changedCell = Intersect(Target, Range("A1:E1"))
    
    If Not changedCell Is Nothing Then
        ' 禁用事件触发，避免修改单元格时再次触发Worksheet_Change
        Application.EnableEvents = False
        
        For Each cell In changedCell
            If cell.Value = "" Then
                ' 单元格清空时，同步清空下方时间单元格
                cell.Offset(1, 0).ClearContents
            Else
                ' 单元格有内容时，填充当前时间
                cell.Offset(1, 0) = Now
            End If
        Next cell
        
        ' 重新启用事件
        Application.EnableEvents = True
    End If
End Sub

关键说明 #

• 用Range("A1:E1")替代逐个单元格的判断，简化代码逻辑
• 增加cell.Value = ""的判断，区分"单元格更新内容"和"单元格被清空"两种场景
• 添加Application.EnableEvents控制，防止修改下方时间单元格时触发循环的变更事件，避免报错或重复执行

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