1、打开Excel表格，点击【文件】，【另存为】，在“保存类型”里面选择“Excel 启用宏的工作薄”并进行保存。
2、点击【开发工具】，【Visual Basic】打开VBA工程窗口。
3、在左侧的“VBAProject（自动记录时间点.xlsm）”下方双击“Sheet1(Sheet1）”打开代码输入窗口。
4、在代码输入窗口里面输入以下VBA代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工作表选定区域发生改变时执行
Dim b1 As Boolean
Dim a, b, c, d, e, f As Variant
Dim i, j As Integer
Set myDocument = ThisWorkbook.Worksheets("Sheet1")
For i = 2 To 1000 '循环2-1000次，即：以下自动填充时间到1000行
a = myDocument.Cells(i, 1) '将单元格赋值给a
b = myDocument.Cells(i, 2)
c = myDocument.Cells(i, 3)
d = myDocument.Cells(i, 4)
e = myDocument.Cells(i, 5)
f = myDocument.Cells(i, 6)
b1 = WorksheetFunction.And(a <> "", b <> "", c <> "", d <> "", e <> "")
If b1 = True And f = "" Then '如果所在行已经填写信息且自动填充时间为空白，则执行自动填充时间
myDocument.Cells(i, 6) = Now()
End If
Next
End Sub
5、在同一行上面的第1到第5列对应的单元格都写入数据信息，且同一行上面的第6列对应的单元格是空白的，那么就会在同一行上面的第6个单元格里面自动写入当前的时间。
