在自动过滤器VBA之后查找第一行和最后一行索引

Question

我有一张超过10000行数据的工作表。我需要根据列中的日期范围（列F）过滤它。但是在过滤之后如何找到过滤数据中第一行和最后一行的Row索引。意味着第一行索引可以是120，最后一行索引可以是3200这样的东西。我尝试的是如下找到最后一行根本不起作用。

bra=open("http://webpage.com")
   ^
   v
bra.open("http://webpage.com")

Answer 1

您必须利用Range对象的Areas属性，该属性允许您处理给定Range的每个相邻单元格子范围 我不是在PC上，但以下情况会让你受阻：

With Sheets("FullInvoice").UsedRange.SpecialCells(xlCellTypeVisible)
    firstRow = .Areas(1).Rows(1).Row ‘get first subrange first row index
    With .Areas(.Areas.Count) ‘reference last subrange
        lastRow = .Rows(.Rows.Count).Row ‘get referenced subrange last row index
    End With 
End With