Как найти последнюю строку данных, когда данные на вашем листе отфильтрованы? Я играл с Special Cells
и Visible Cells
, но не могу найти решения. Я думаю, это должна быть какая-то вариация того, что у меня ниже:
...
With ws
LR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:E" & LR).AutoFilter Field:=2, Criteria1:="=4"
LRfilt = .Range("A" & Rows.SpecialCells(xlCellTypeVisible).Count).End(xlUp).Row
Debug.Print LR
Debug.Print LRfilt
End With
...
Файл можно найти здесь:
wikisend.com/download/443370/FindLRFilteredData.xls
Изменить:
После обсуждения с Сиддхартом я понял, что мне не нужно свойство Last Row
, которое мне нужно для подсчета количества видимых строк, которые привели к решению Сида ниже ...