如何在excel中记录指定单元格A1的历史数据？

按alt+F11，然后在左侧工程窗口中找到sheet1，双击并输入以下代码。

私有子工作表_Change(ByVal目标作为范围)

暗淡的

有目标

如果。地址= "$A$1 "然后

If范围(" B65536 ")。结束(xlUp)。Row = 1，Cells(1，2) = " "那么

Range("b1") =。价值

其他

单元格(范围(" B65536 ")。结束(xlUp)。Row + 1，2) =。价值

如果…就会结束

如果…就会结束

以…结尾

末端接头

然后关闭VBE。在A1中输入任意数据以查看效果。