如果單元格值更改，請將值復制到另一個工作表

Question

我創建了一個項目管理模板，我定期更新項目的狀態。

我希望只要一個單元格的單元格值發生更改，就會將確切的值復制到另一個工作表上的單元格中。

如果原始單元格的單元格值再次更改（由於進一步的項目更新），我希望再次復制該值，但在前一個副本下面，依此類推。

由於我想自己解決問題，如果你能給我一些關於如何繼續或在哪里看的提示，我會很高興。

Answer 1

您可以使用Worksheet_Change()事件。 例如，如果您要更改的單元格是A1 ，請測試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