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 BooleanDim a, b, c, d, e, f As VariantDim i, j As IntegerSet myDocument = ThisWorkbook.Worksheets("Sheet1")For i = 2 To 1000 '循环2-1000次，即：以下自动填充时间到1000行a = myDocument.Cells(i, 1) '将单元格赋值给ab = 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 IfNextEnd Sub
5、在同一行上面的第1到第5列对应的单元格都写入数据信息，且同一行上面的第6列对应的单元格是空白的，那么就会在同一行上面的第6个单元格里面自动写入当前的时间。
