VBA复制粘贴时自动添加时间戳的问题求助

嘿，我懂你碰到的这个麻烦！当你批量粘贴数据的时候，Target其实是一个包含所有被修改单元格的单元格范围，而不是单个单元格。你原来的代码只取了Target.Row——也就是这个范围的第一行，所以自然只有第一行会生成时间戳啦。

下面是修改后的代码，能完美处理批量粘贴的场景：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MyTableRange As Range
    Dim cell As Range
    Dim targetRow As Range
    
    ' 定义目标数据范围
    Set MyTableRange = Me.Range("A2:J150")
    
    ' 检查修改范围是否和数据范围有交集
    If Intersect(Target, MyTableRange) Is Nothing Then Exit Sub
    
    ' 关闭事件触发，避免写入时间戳时反复触发Worksheet_Change
    Application.EnableEvents = False
    
    ' 遍历所有被修改的单元格所在行
    For Each cell In Intersect(Target, MyTableRange)
        Set targetRow = Me.Range("K" & cell.Row)
        ' 写入当前时间戳（如果只需要日期可以换成Date()）
        targetRow.Value = Now()
    Next cell
    
    ' 恢复事件触发，不然后续的单元格修改都不会触发事件了
    Application.EnableEvents = True
End Sub

关键修改点说明： #

• 遍历所有修改行：用For Each cell In Intersect(Target, MyTableRange)循环，确保每一个被修改的单元格所在行都能生成时间戳
• 关闭/恢复事件：Application.EnableEvents = False非常重要，因为当我们写入时间戳到K列时，会再次触发Worksheet_Change事件，关闭它可以避免无限循环，最后一定要记得恢复成True
• 精准范围判断：用Intersect(Target, MyTableRange)过滤掉不在数据范围内的修改，避免不必要的操作

测试一下批量粘贴，所有被修改的行对应的K列都会自动生成时间戳啦！

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