在其他单元格更新时将日期/时间添加到单元格，并在其他单元格为空时清除它

Question

我正在为公司报告创建 Excel 文件。我借用了这个MS支持线程

Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Or _
    Not Intersect(Target, Range("B1")) Is Nothing Or _
    Not Intersect(Target, Range("C1")) Is Nothing Or _
    Not Intersect(Target, Range("D1")) Is Nothing Or _
    Not Intersect(Target, Range("E1")) Is Nothing Then

    Target.Offset(1, 0) = Now
End If

End Sub

它有效。现在我希望在清除主单元格后清除目标单元格。

现在，例如，当我删除 A1 时，A2 中的时间会保留。

Answer 1

您正在寻找

IsEmpty

检查您的代码：

If IsEmpty(Target.Value) Then Target.Offset(1, 0).ClearContents Else Target.Offset(1, 0) = Now

整体：

Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect(Target, Range("A1:E1")) Is Nothing Then

    If IsEmpty(Target.Value) Then Target.Offset(1, 0).ClearContents Else Target.Offset(1, 0) = Now

 End If

End Sub