Как отфильтровать и скопировать именованный диапазон?

Question

Я пытаюсь экспортировать отфильтрованный именованный диапазон в новую книгу.Мой именованный диапазон содержит переменное количество строк с '0' в определенном столбце.Я хотел бы исключить эти строки (которые содержат «0» в столбце «F») из моего выбора перед экспортом их в новую рабочую книгу.

Ниже приведен код, который я использую для копирования названногоранжируйте и вставьте в новую рабочую книгу.Пока все хорошо, но я понятия не имею, как исключить строки с '0' в столбце 'F';в настоящее время весь именованный диапазон вставляется в новую рабочую книгу.

Dim MyFileName As String
Dim CurrentWB As Workbook, TempWB As Workbook

Set CurrentWB = ActiveWorkbook
ActiveWorkbook.ActiveSheet.Range("my named range").Copy


Set TempWB = Application.Workbooks.Add(1)
With TempWB.Sheets(1).Range("A1")
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
End With

Answer 1

Если вы уже отфильтровали данные и нули скрыты, измените следующую строку:

ActiveWorkbook.ActiveSheet.Range("my named range").SpecialCells(xlCellTypeVisible).Copy

Если вы не фильтровали, используйте AutoFilter

ActiveWorkbook.ActiveSheet.Range("my named range").AutoFilter Field:=(number of field), Criteria1:="<>0"

с последующей строкой выше ...