方法一:
在工作表标签上,单击鼠标右键,“查看代码”,然后粘贴下面代码,按Alt+F11;然后在A列输入内容,自动在B列生成日期。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(, 1) = Format(Now, "yyyy-mm-dd h:mm:dd")
End Sub
方法二:
1、在D1单元格输入=TODAY()
2、选择B1单元格,设置单元格格式为“日期”,然后在“数据”选项下的“数据有效性”中,选择“序列”,来源输入=$D$1
3、A1修改后,在B1按一下下拉选项,生成不随系统日期改变的最后日期。
详见附图