Это не может быть применено к выбранному диапазону.Ошибка времени выполнения на VBA

Question

Я пытаюсь в Excel VBA создать макрос, который может принимать данные и фильтровать их по определенным критериям.Затем скопируйте отфильтрованную таблицу в другую электронную таблицу.Я пытался сделать это сам, но наткнулся на контрольно-пропускной пункт.

Точная проблема показывает, является ли ошибка времени выполнения "1004", где говорится, что ее нельзя применить к выбранному диапазону?Что я не понимаю, что это значит.Ошибка кода показана в части фильтра, где выбор.Автофильтр есть.

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

Код, с которым у меня возникли проблемы, приведен ниже

Sub Filtering()

    Dim LastRow As Long

    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = "PERSONA3"

    Sheets("PERSONA3").Activate

    'Find the last row
    LastRow = Range("A1").CurrentRegion.Rows.Count

    'Select Table
    Range("A1:FB" & LastRow).Select

    'Filter Table
    Selection.AutoFilter Field:=AR, Criteria1:="Cigarette"

    'copy paste
    Selection.Copy
      Sheets("PERSONA3").Range("A1" & LastRow).PasteSpecial x1PasteValues

    'Turn off Auto Filter
    Selection.AutoFilter

End Sub

Ожидаемыйрезультаты для этой программы должны заключаться в том, что создается другая электронная таблица с отфильтрованной таблицей, введенной в новую электронную таблицу

Answer 1

Вы получаете сообщение об ошибке, потому что вы пытаетесь применить AutoFilter к вновь созданному (и полностью пустому) рабочему листу.

Вы должны применить AutoFIlter кпредыдущий лист, содержащий данные, которые вы хотите отфильтровать, а затем выполните Копировать / Вставить