设置excel单元格自动填充日期，当在前一个单元格填入东西的时候，就在对应的后一个的单元格自动填入日期！

1.电脑打开Excel表格。

2. 在单元格A1中输入任意数字，然后在另一个单元格中输入公式=IF(A1<>""，A1，"")。

3.另一个单元格输入公式=IF(A1<>""，A1，"")，回车，无论A1输入什么，这个单元格的输入公式都会自动生成zdA1的内容。

4.更简单的方法是在另一个单元格中输入=A1来获得A1的内容。

操作如下：

以下图中的表格为例；当在B列中输入数据，在A列对应的单元格自动填充上日期。

1；在B2单元格输入公式：=IF(A2<>"",NOW(),"")

2；按回车键；然后，在A2单元格输入数据；在B2单元格即自动显示出日期。

如果是想用日期来表示最后编辑时间，可以用now函数和数据有效性来做。

1、在任意单元格输入公式=NOW()，本例使用I1单元格。

2、在数据边的空白列建立辅助列，设置数据有效性。方法是：选中该列，点击数据——数据验证，在设置命令处，允许条件选择序列，来源等于I1，点击确定设置完毕。

3、在输入完毕数据后，用鼠标在辅助列点选一下，就能记录当前的时间，而且不会改变。now函数，today函数都是易失性函数，每次打开工作表都会跟随计算机的系统时间自动改变，如此设置就不会出现这种问题，是记录最后编辑时间的好方法。

右键SHEET--查看代码
复制下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1Then
Target.Offset(0, 1) = Date
End If
End Sub
注意:在VBA代码中，Date、Now、Time分别表示系统日期、日期及时间、时间
If Target.Column = 1 Then 表示:在第1列输入后,第2列自动出现日期

设在A列填充，在A2输入：
=IF(A1<>"",NOW(),"")
拖动下拉方式复制到需要的行。