自动时间戳

Question

以下是正在运行。 如果我想在B列中创建一个时间和日期戳，并将值插入A列，那么如何修改现有模块？ （我不能粘贴代码，这就是为什么有一个链接）

Log Value in Excel

Answer 1

这只是一个小的变化到该行：

Worksheets("Sheet2").Range("a" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Resize(, 2).Value = Array(Range("E15").Value, Now()) 

编辑：我不知道为什么你已经改变了你的问题，删除你最初发布的代码！？

Answer 2

以下的代码检查是否存在在最后一行Sheet 2中的任何变化， 时间戳将被在列B印刷

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Intersect(Target, Worksheets("sheet2").Range("A" & Cells(Rows.Count).Row).End(xlUp)) Is Nothing Then 

    lastrow = Worksheets("sheet2").Cells(Worksheets("sheet2").Rows.Count, "A").End(xlUp).Row 
    Worksheets("sheet2").Cells(lastrow, 2).Value = Now() 
End If 

结束子