1、按ALT+F11进入VBA窗口
2、如果你的表在sheet1中，你就点左边工程管理器里的sheet1（总之你在哪个表中要实现这个功能就点开哪个工作表）。
3、在右边的窗口中输入下边代码：
Sub Macro1()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
Target.Offset(0, -1) = Format(Date, "dd日")
End If
End Sub
4、这样你回到工作表，在B列输入数据。
A列就会出现当前日期。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024