将表格列数据复制到另一个表格列作为事件

我有下面的代码，作为一个模块工作正常，但我宁愿它工作作为一个工作表_change（Table_owssvr连接到外部源）：

If Application.WorksheetFunction.CountA(Range("Table_SiteManager[Title]")) <> 0 _ Then Range("Table_SiteManager[Title]").Rows(2).Delete Range("Table_owssvr[Title]").Copy _ Destination:=Range("Table_SiteManager[Title]") 

有任何想法吗？

谢谢。

Answer 1

我想出了一个办法，以防万一有人感兴趣：

 Lastrow = ListObjects("Table_owssvr").Range.Rows.Count If Target.Column = 1 Then Sheets("SiteManagers").Range("Table_SiteManager[Title]").Rows(2).Delete Sheets("Permission").Range("Table_owssvr[Title]").Copy _ Destination:=Sheets("SiteManagers").Range("Table_SiteManager[Title]") Sheets("Permission").Range("lastrow").Select End If