如何過濾和復制命名范圍？

Question

我正在嘗試將已過濾的命名范圍導出到新工作簿。 我的命名范圍包含可變數量的行，在特定的列中帶有“ 0”。 在將它們導出到新工作簿之前，我想從選擇中排除那些行（在“ F”列中包含“ 0”）。

下面是我用來復制命名范圍並將其粘貼到新工作簿中的代碼。 到目前為止，還不錯，但是對於如何排除列“ F”中帶有“ 0”的行，我一無所知。 當前，將整個命名范圍粘貼到新的工作簿中。

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"

接下來是上面的行...