Question

我有以下代码，它可以作为模块正常工作，但我宁愿让它作为工作表交换工作（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

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

1 个答案: