单元格更新时如何在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