VBA问题，如何在A1单元格输入内容，而在B1单元格内则自动产生输入的日期

Question

墓地是为了记录在A1内输入内容的日期。

Answer 1

右键SHEET1复制代码

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1Then
Target.Offset(0, 1) = Date
End If
End Sub

If Target.Column = 1 Then 表示:在第A列输入后,第2(B)列自动出时间
注意:在VBA代码中，Date、Now、Time分别表示系统日期、日期及时间

参考资料：http://zhidao.baidu.com/question/273771630.html

Answer 2

[a1].copy [e1]

忘了一个很重要的问题从第一行到若干行要重复执行 ,假定是13行
[a1].resize(13).copy [e1]

Answer 3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 2) = Now()
End Sub