excel - 如何在Excel中应用高级过滤器后获取可见行的范围(VBA)

Question

以下代码使用 Sheet2 上的值范围(条件范围)对 Sheet1 工作表(列表范围)上的 A 列应用高级筛选器:

Range("A1:A100").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Sheet2").Range("A1:A10"), Unique:=False

运行此代码后，我需要对屏幕上当前可见的行执行一些操作。

目前我使用这样的代码:

For i = 1 to maxRow
   If Not ActiveSheet.Row(i).Hidden then
     ...do something that I need to do with that rows
   EndIf
Next

是否有任何简单的属性可以在应用高级过滤器后为我提供一系列可见的行？

Answer 1

ActiveSheet.Range("A1:A100").Rows.SpecialCells(xlCellTypeVisible)

这会产生一个 Range 对象。