在excel中如何对一个指定单元格A1的历史数据进行记录？

2025-03-24 05:22:01

推荐回答（2个）

回答1：

打开你的Excel表,假设你是sheet1表要实现这个功能.
按alt+F11,然后在左面的工程窗口找到sheet1双击,输入下列代码.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a
With Target
If .Address = "$A$1" Then
If Range("B65536").End(xlUp).Row = 1 And Cells(1, 2) = "" Then
Range("b1") = .Value
Else
Cells(Range("B65536").End(xlUp).Row + 1, 2) = .Value
End If
End If
End With
End Sub
然后关闭VBE.在A1输入任意数据就看到效果.

回答2：

楼上高手！
他还实现了从b列中最下面的空白单元格开始记录A1中的值！