如果单元格值更改，则将值复制到另一个工作表

我创build了一个项目pipe理模板，我定期更新项目的状态。

我希望一个单元格的单元格值发生更改，确切的值将被复制到另一个工作表上的单元格。

如果原始单元格的单元格值再次发生更改（由于进一步的项目更新），我希望将该值再次复制，但低于以前的副本，依此类推。

因为我想自己解决这个问题，所以如果你能给我一些关于如何继续或去哪里寻找的提示，我会很高兴。

Answer 1

您可以使用Worksheet_Change()事件。 例如，如果您正在更改的单元格是A1 ，则testing以查看Target单元格是否匹配。 如果是这样，请确定目标工作表上的最后一个使用的行（下面的Sheet2 ），然后分配值。

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then ' Get the last row on our destination sheet (using Sheet2, col A here)... Dim intLastRow As Long intLastRow = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row ' Add our value to the next row... Sheet2.Cells(intLastRow + 1, "A") = Target.Value End If End Sub