Question

我是VBA的非常，目前正在尝试将大小可变的表中的所有数据复制到另一个工作表中。

我无法从表中复制数据（尚未开始粘贴数据，但是我确定我会回来的；））。我已经在网上寻找答案，但是找不到适合我的可靠解决方案。

我的代码是：

Worksheets("ALL DATA").Activate
Sheets("ALL DATA").ListObjects("SearchRequest-19015").Copy

我得到“运行时错误'9'”，它突出显示了第二行。有人有提示吗？

Answer 1

我认为您在.Range之前选择.copy的错误您的代码应该是这样

Sub copytable()
    Dim myTable As ListObject
    Set myTable = Sheets("sheet2").ListObjects("Table1")
    myTable.Range.Copy
    Sheets("sheet1").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Set myTable = Nothing

End Sub

VBA-如何从表中复制内容

1 个答案: