vba 监听一行数据产生变化就复制到另一个表中

以下是一个示例代码，可以监听Sheet1中的A列数据，如果A列数据发生变化，就将整行数据复制到Sheet2中：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then '只监听A列数据变化
        Dim copyRow As Range
        Set copyRow = Target.EntireRow '获取整行数据
        copyRow.Copy Destination:=Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Offset(1, 0) '将数据复制到Sheet2中
    End If
End Sub

将上述代码复制到Sheet1的代码模块中即可。注意，需要在VBA编辑器中启用"Microsoft Excel 对象"库才能使用上述代码。