在不删除自动过滤器的情况下查找过滤列中的最后一个填充行

Question

如何获取已过滤列中最后一个非空单元格的位置，而又不删除应用的自动过滤器？我知道很容易通过[]获得最后一个visible行的编号

Dim ws as Worksheet, rng As Range
Set rng = Range(Letter & 1 & ":" & Letter & 1) ' where Letter is the letter code of the column
GetLastVisibleRow = ws.Range(Split(ws.Cells(, rng.Column).Address, "$")(1) & ws.Rows.count).End(xlUp).row
但是我需要最后一行filled

的编号。同时，我想避免设置

ws.AutoFilterMode = False
如果可能。

提前感谢。

如何获取已过滤列中最后一个非空单元格的位置，而又不删除应用的自动过滤器？我知道使用Dim ws来获取最后可见行的编号很容易，因为...

Answer 1

可能不是最有效或最快的方法，但这似乎可行：

Answer 2

@ jkpieterse提供的迷人解决方案，再加上@BigBen提供的有用评论，正是我所要的。只是为了最终确定线程，返回行号