excel - 如何仅访问 VBA 范围内的过滤行？

Question

我希望能够在 VBA 中使用 AutoFilter 方法的结果。我可以应用 AutoFilter 方法(使用命名范围)，但无法弄清楚如何在 VBA 中创建仅包含结果的 Range 变量。然后我想遍历这个结果范围。如果不简单地检查每一行的 Visible 属性并对这些行进行操作，我无法弄清楚如何做到这一点。

Public Sub CopyFilteredRows()
   Dim sourceRg As Range, filteredRg As Range, objRow As Range

   Set sourceRg = ThisWorkbook.Names("FY10CountsRg").RefersToRange
   sourceRg.AutoFilter Field:=1, Criteria1:="=D-144", Operator:=xlOr, _
     Criteria2:="=D-200"

   For Each objRow In filteredRg.Rows
      ''do something
   Next

End Sub

Answer 1

试试这个——它应该只是点击可见的单元格并打印它们的值——你应该能够调整它来完成这项工作:

Dim rgAreas As Range: Set rgAreas = FilteredRg.SpecialCells(xlCellTypeVisible)
Dim rgArea  As Range
Dim rgCell  As Range

For Each rgArea In rgAreas.Areas
    For Each rgCell In rgArea.Cells
        Debug.Print rgCell.Address & ": " & rgCell.Value
    Next rgCell
Next rgArea