使用SpecialCells（xlCellTypeVisible） – 跳过隐藏的单元格

我正在使用SpecialCells（xlCellTypeVisible）只获取可见的单元格。 我的目标是在过滤条件应用后拉起5条logging。

但是，在应用filter并且存在隐藏的单元格之后，只有顺序的单元格被提取，隐藏的行之后的任何内容都不会被拉取。

有没有办法跳过隐藏的细胞，并得到5条目。

---

Dim rRange As Range, filRange As Range Dim value1 As String Dim value2 As String Dim strItemNameBF() As String Dim iCol As Long Dim iRow As Long Dim loopCnt As Integer Dim chk As String Dim i As Integer i = 0 Dim rAcells As Range 'Sheets("Test Log").Select Sheets("Test Log").AutoFilterMode = False Set rRange = Sheets("Test Log").Range("TestLog") With rRange .AutoFilter Field:=1, Criteria1:=projectID .AutoFilter Field:=4, Criteria1:=Array("Red", "Yellow", "Green"), Operator:=xlFilterValues Set filRange = .Offset(1, 0).SpecialCells(xlCellTypeVisible) If filRange.Rows.Count > 0 Then If filRange.Rows.Count > 5 Then loopCnt = 5 Else loopCnt = filRange.Rows.Count