假如要在sheet1中实现这个功能
ALT+F11，双击右边工程资源窗口中的sheet1
左边空白处输入代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Sheet1.Cells(Target.Row, 2) = Now
End If
End Sub
当A列数据任意行数据发生改变，B列对应行自动记录改变的时间
Target.Column 和Target.Row可以根据你的要求修改
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024