VBA - Как скопировать содержимое из таблицы

Question

Я очень новичок в VBA и в настоящее время пытаюсь скопировать все данные из таблицы переменного размера в другой лист.

У меня проблемы с копированием данных из моей таблицы (еще не начали их вставлять, но я уверен, что вернусь;)). Я искал ответ в Интернете, но не могу найти надежного решения, которое бы сработало для меня.

Мой код:

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

И я получаю «Runtime Error '9'», и она выделяет вторую строку. У кого-нибудь есть советы?

Answer 1

Я думаю, что ошибка, которую вы выбрали .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