如果删除了数据条目，则删除时间戳答案

【问题标题】：Remove timestamp if data entry removed如果删除了数据条目，则删除时间戳
【发布时间】：2022-09-23 09:06:33
【问题描述】：

我在网上找到了这段代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range(\"A1:A1000\")) Is Nothing Then
        With Target(1, 2)
        .Value = Date
        .EntireColumn.AutoFit
        End With
    End If
End Sub

如果将值放入 A 列，则今天的日期将放入 B 列。
如果我从 A 列中删除值，则日期将保留在 B 列中。

如果清除 A 列的任何值，是否可以删除 B 列中的日期？

标签： excel vba

【解决方案1】：

试试下面的子

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
    '        With Target(1, 2)
    '        .Value = Date
    '        .EntireColumn.AutoFit
    '        End With
    
        If Target = "" Then
            Target.Offset(, 1) = ""
        Else
            Target.Offset(, 1) = Date
            Target.EntireColumn.AutoFit
        End If
    End If
End Sub

【讨论】：