查找过滤表下面的空行的行号

我想能够find过滤表下的第一个空白行的行号。 我正在使用这个代码，但它发现了过滤表的最后一行。

.Range("A1").End(xlDown).Row 

Answer 1

干得好：

  Dim HeaderRow As Long, LastFilterRow As Long, Addresses() As String On Error GoTo NoFilterOnSheet With ActiveSheet HeaderRow = .AutoFilter.Range(1).Row LastFilterRow = .Range(Split(.AutoFilter.Range.Address, ":")(1)).Row Addresses = Split(.Range((HeaderRow + 1) & ":" & LastFilterRow). _ SpecialCells(xlCellTypeVisible).Address, "$") GetFilteredRangeBottomRow = Addresses(UBound(Addresses)) FirstBlankRow = GetFilteredRangeBottomRow + 1 MsgBox FirstBlankRow End With NoFilterOnSheet: