Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Cells(2, 1), Target) Is Nothing Then Exit Sub
Cells(2, 2).Value = Now()
End Sub
※ 引述《ggyy911 (ggyy)》之铭言：
: 各位大神好~
: 想请教一个公式。
: 想在储存格有数值(A2)异动时,B2能直接带现在时间，让我存盘。
: 让下一位使用者打开时看到异动时间。
: https://i.imgur.com/vF9FIxX.jpeg