从工作表1到工作表2的VBA复制和粘贴表

Question

我在工作表（1）中有1个表“ DataEntry”，范围为A3:R20 我想将其粘贴到单元格“ A3”的第二张图纸sheet（2）“数据库”上，然后清除数据输入表。

我当前的Marco是：

Sub CopyTable()

    Worksheets (1). ListObjects("DataEntry").Range.Copy _
    Destination:=Worksheets(2).Range ("A3")

End Sub

Answer 1

如果您想清除数据条目而不破坏表，则可以从此处尝试信息：How to select clear table contents without destroying the table?。

否则，如果您只想完全清除表格，则可以尝试：

Worksheets(1).ListObjects("DataEntry").Range.Clear  'or ClearContents