这个用单元格事件完成即可，跟什么整个表没关系，代码如下
此代码假定你前二行为表头行，从第三行开始输入有效，即B列从第三行开始输入时，自动在对应行A列输入当前日期
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row 2 And Target.Count = 1 And Target.Column = 2 Then
Target.Offset(0, -1) = Date
End If
End Sub
以下是自动输入当前日期和时间
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row 2 And Target.Count = 1 And Target.Column = 2 Then
Target.Offset(0, -1) = Now()
End If
End Sub
以下是自动输入当前时间（不含日期）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row 2 And Target.Count = 1 And Target.Column = 2 Then
Target.Offset(0, -1) = Format(Now(), h:m:s)
End If
End Sub
以上代码都是写到你需要处理的表格对应的VBE编辑区内 这个要用VBA编程的 在sheet1的B列输入删除数据，C列会显示时间 函数无法实现日期不变这个目的，因为只要EXCEL“更新公式”，用函数生成的日期就会马上改变。
只能用VBA做一个宏，当生成日期后，只要不重新运行这个宏，那么日期就不会再改变。