主题：单击某表里的一个单元格，自动把该单元格的数据添加到另一个表中

首先禁止编辑表A这个表，你可以锁定他。

然后设置表A的DoubleClick事件：

If e.col.name = "姓名" Then
    Dim r As Row = Tables("表B").AddNew
    r("姓名") = e.Row("姓名")
End If

这样双击表A的姓名列，就会在表B增加一行，并自动将姓名列复制到新增行中。