excel - 查找下一个可见行

Question

我正在尝试编写一个函数来返回自动筛选列表中的下一个可见行。

在具有自动筛选范围的工作表中，以下代码返回 #VALUE 错误:

Function FindNextVisible(S As Range) As Range
Dim L As Range
Dim R As Range
Dim counter As Integer
counter = 1
Set L = Range(S, S.End(xlDown)).Cells.SpecialCells(xlCellTypeVisible)
For Each R In L
    counter = counter + 1
    If counter = 2 Then FindNextVisible = R
Next 
End Function

我怀疑初学者犯了错误...

更新1: 好吧，很好的建议。我无法使用 SpecialCells。不幸的是，VBA 对我来说并不强，而且我在使用 Sub 版本时遇到了麻烦。

也许还有另一种方法。我想比较不连续(由于过滤)行之间的文本，但我不知道如何为公式提供对下一个可见行的引用。

Answer 1

以下内容应该可以实现您正在寻找的内容。

Public Function NextVisibleCell(Range As Range) As Range
Application.Volatile
Dim i As Long
Set Range = Range.Cells(Range.Rows.Count, Range.Columns.Count)
For i = 1 To Rows.Count - Range.Row
    If Not Range.Offset(i).EntireRow.Hidden Then
        Set NextVisibleCell = Range.Offset(i)
        Exit Function
    End If
Next i
End Function