Excel VBA：Timestamp与Modifiedstamp批量添加异常问题求助

问题描述 #

我用Excel制作归档文件：Sheet1存储所有项目列表，Sheet2仅存储已完成项目。编写的Sub1可将Sheet1中已完成项目剪切粘贴到Sheet2最后一行，运行正常。但编写的Sub2本应为每个存入项目在对应列添加Timestamp和Modifiedstamp，却为每个复制列生成多个时间戳，请求修正代码使其正常工作。

原代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

columnHeader = Cells(4, Target.Column).Value

If columnHeader = "Projektname" And Target.Row >= 5 Then

    For Each cell In Target

        If cell.Value = "" Then

            cell.Offset(0, 17).ClearContents

            cell.Offset(0, 18).ClearContents

        Else

            If cell.Offset(0, 17).Value = "" Then

                cell.Offset(0, 17).Value = Now

            End If
                cell.Offset(0, 18).Value = Now

        End If

    Next cell

End If

Application.EnableEvents = True
End Sub

问题分析 #

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

• 当剪切粘贴整行/多列数据时，Target会包含多个单元格，循环遍历Target中所有单元格会导致每一个单元格都触发一次时间戳写入，从而生成重复的时间戳。
• 代码未严格限定只处理"Projektname"列的单元格，只要Target所在列的表头是"Projektname"，就会遍历Target内所有单元格（包括其他列），引发不必要的重复操作。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    ' 常量定义，便于后续维护修改
    Const HEADER_ROW As Integer = 4
    Const TARGET_HEADER As String = "Projektname"
    
    ' 仅处理目标列且行号大于等于数据起始行的单元格变化
    If Cells(HEADER_ROW, Target.Column).Value = TARGET_HEADER And Target.Row >= 5 Then
        For Each cell In Target
            ' 锁定当前行的目标列单元格，避免跨列误操作
            Dim projNameCell As Range
            Set projNameCell = Cells(cell.Row, Target.Column)
            
            If projNameCell.Value = "" Then
                ' 清空当前行的时间戳列
                projNameCell.Offset(0, 17).ClearContents
                projNameCell.Offset(0, 18).ClearContents
            Else
                ' 仅在Timestamp为空时设置创建时间
                If projNameCell.Offset(0, 17).Value = "" Then
                    projNameCell.Offset(0, 17).Value = Now
                End If
                ' 更新修改时间
                projNameCell.Offset(0, 18).Value = Now
            End If
        Next cell
    End If
    
    Application.EnableEvents = True
End Sub

关键修改点 #

• 增加常量定义，方便后续修改表头行和目标列文本，提升代码可维护性。
• 明确锁定当前行的"Projektname"列单元格，避免遍历其他列单元格时误触发时间戳写入。
• 确保仅当"Projektname"列的单元格发生变化时，才处理对应行的时间戳，避免多列粘贴导致的重复生成问题。

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