如何在单元格更新时捕获Excel中的单元格值

Question

我在Excel中有一个基于RAND（）函数更新的单元格。每次更新单元格时，我都希望在单独的列中捕获先前的值。这样我以后就可以计算出平均值。

怎么实现这个？

Answer 1

将下面复制到Worksheet模块并更改“A1”单元格：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Target, Range("A1")) Is Nothing) Then
    i = i + 1
    Worksheets("Sheet1").Cells(i, 2).Value = Worksheets("Sheet1").Cells(1, 1).Value
    End If
End Sub