vba - 将表格复制到另一个工作表

Question

我在 Worksheet(1) 中有 2 个表，“Table1”和“Table2”。

我想将这些表格复制到另一个工作表 (2)，其中 Table1 的左上角在新工作表中的单元格“A1”中，Table2 的左上角单元格在新工作表中的单元格“O1”中”

除非 Sheet2 中的 ActiveCell 是 A1，否则表格将无法正确复制和粘贴。我没有正确激活工作表吗？

Sub CopyTables()
Worksheets(2).Activate          'must be on ExHouStorm or Worksheet(1)
Worksheets(1).ListObjects("Table1").Range.Copy
Worksheets(2).Paste


Worksheets(1).ListObjects("Table2").Range.Copy
Worksheets(2).Range("O1").Select
Worksheets(2).Paste

End Sub

这看起来很简单，因为它部分有效，但我认为我有一个语法错误。

Answer 1

您应该能够通过提供目的地直接复制。

Sub CopyTables()

    Worksheets(1).ListObjects("Table1").Range.Copy _
        Destination:=Worksheets(2).Range("A1")


    Worksheets(1).ListObjects("Table2").Range.Copy _
        Destination:=Worksheets(2).Range("O1")

End Sub

通过直接明确地寻址对象及其目的地，您可以完全避免 .Activate 和 .Select。

参见 How to avoid using Select in Excel VBA macros了解更多摆脱依赖选择和激活来实现目标的方法。