求助：如何实现A列单元格输入数值后自动批注当前时间

这个必须用VBA了，你想要我给你贴代码？

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.Column = 1 Then
t = Now()
t = Format(t, "yyyy""年""m""月""d""日""")
Target.ClearComments
Target.AddComment Text:=t
End If
Application.EnableEvents = True
End Sub
这个VB是只要在A列输入内容都会自动批注输入日期，如果你只是想输入数字时候自动批注，这代码要改一点点，还有就是自动批注后 如果你改动也会自动再一次批注，如果不想变那么还要在改代码。这个都是根据你自己的需求改的。

如果想显示日期+时间用这个
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.Column = 1 Then
t = Now()
t = Format(t, "yyyy""年""m""月""d""日""hh:mm:ss")
Target.ClearComments
Target.AddComment Text:=t
End If
Application.EnableEvents = True
End Sub