VBA 监听 Excel 行数据变化并复制到另一个表格

使用 VBA 代码监听 Excel 行数据变化并复制到另一个表格

本文提供一个 VBA 代码示例，用于监听 Excel 表格 Sheet1 中 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

使用方法:

1. 打开 Excel 文件，并选择 Sheet1 工作表。
2. 在 VBA 编辑器中，选择“插入” > “模块”。
3. 将上述代码复制到代码模块中。
4. 确保在 VBA 编辑器中启用“Microsoft Excel 对象”库。
5. 运行代码，即可实现监听 A 列数据变化并复制到 Sheet2 的功能。

注意:

• 代码只监听 Sheet1 中的 A 列数据变化。
• 代码会将整行数据复制到 Sheet2 中，包括空单元格。
• 代码会将数据复制到 Sheet2 的第一个空行。
• 为了避免重复数据，请确保 Sheet2 的第一行没有数据。

扩展:

• 可以修改代码以监听其他列的数据变化。
• 可以修改代码以将数据复制到其他工作表。
• 可以修改代码以根据条件选择复制哪些数据。