如何继续将单元格的内容追加到其他工作表？

Question

我有两列数据。一个是名为notes的列，另一个是Notes历史记录。我每天都会更新注释部分，并在今天的注释中添加一个或两个衬纸。我的目的是记录我在此列中键入的所有内容，这类似于在历史记录表中添加注释

Answer 1

您可以尝试工作表事件：

Option Explicit

Public Old_value As String

Private Sub Worksheet_Change(ByVal Target As Range)

    MsgBox "Old Value is: " & Old_value & vbNewLine & "New Value is: " & Target.Value

End Sub

Public Sub Worksheet_SelectionChange(ByVal Target As Range)

    'Let us assume that Notes appear in column A
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Old_value = Target.Value
    End If

End Sub