跳转单元格时包含隐藏行

starlee0805

当我跳转表格时，我想跳转到数据库B列中的非空单元格。
但是按照sht2.Cells(Rows.Count, 2).End(xlUp).Row + 1来返回行数时会忽略隐藏行，我现在想跳转到最后一行非空行，其中包括隐藏行，譬如我现在想跳转到另一工作表的B918单元格，但是按照目前的计算返回的行数却是B211,请求大神帮助。

半百

918行隐藏起来了，跳转去有什么意义？
先取消筛选，再跳转可否？

MOY838840554

自己写倒循环，判断单元格的值或者长度len

MOY838840554

写了个自定义函数

1. Sub test()
   
2.     '第20行隐藏
   
3.     Debug.Print GetLastRow(Columns("F"))
   
4.     Debug.Print GetLastRow(Columns("H"))
   
5. End Sub
   
6. 
   
7. Function GetLastRow(Rng As Range)
   
8.     Dim aRng, lngRowsCount&, i&
   
9.     lngRowsCount = Rng.Parent.UsedRange.Rows.Count + Rng.Parent.UsedRange.Row
   
10.     aRng = Rng.Resize(lngRowsCount, 1)
    
11.     For i = lngRowsCount To 1 Step -1
    
12.         If Len(aRng(i, 1)) > 0 Then Exit For
    
13.     Next
    
14.     GetLastRow = i
    
15. End Function

复制代码