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

Question

我在 Excel 中有一个单元格，它根据 RAND() 函数进行更新。 每次更新单元格时，我都想在单独的列中捕获以前的值。 这样我以后就可以计算平均值。

怎么实现这个？？

Answer 1

将下面复制到工作表模块并更改“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