Как выбрать первую видимую строку после применения фильтра

Question

Я фильтрую таблицу в Excel, но мне нужна только первая строка.

Answer 1

Используйте Range.SpecialCells method с параметром xlCellTypeVisible в отфильтрованном диапазоне. .Rows(1).Cells должно быть тем, что вы хотите.

Sub first_row() 
    Dim rFirstFilteredRow As Range 
    With Worksheets("Sheet1") 
     With .Cells(1, 1).CurrentRegion 
      'do all the .autofilter stuff here 
      With .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0) 
       If CBool(Application.Subtotal(103, .Cells)) Then 
        Set rFirstFilteredRow = _ 
         .SpecialCells(xlCellTypeVisible).Rows(1).Cells 
        '~~> rFirstFilteredRow is not a copy of the first visible row 
        'do something with rFirstFilteredRow 
       End If 
      End With 
     End With 
    End With 
End Sub 

Вы должны транскрибировать это, чтобы удовлетворить свои собственные реализации AutoFilter Method.

---

_{Уроженец лист SUBTOTAL function был использован как он рассчитывает только видимые ячейки. Это простой неразрушающий способ определить, есть ли какие-либо ячейки для ссылки после применения фильтра.}

Answer 2

Worksheets("Raw").AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(Row, Column)