end(xldown)问题，当用了筛选反，不会准确返回最后一行

figoisbest

我用range.end(xldown).row时，当我启用了筛选，返回的数值是“筛选后的”最后一行，而不是整个工作表的后来一行。

我现在用for loop，找到空值时再返回i值，以确定最后一行

有好的方法吗？各位牛大大

shiruiqiang

干嘛不用range.end(xlup).row，否则有空行的话定不了最后一行

lcluck2002

1. <div class="blockcode"><blockquote>Sub Find_LastRowxlFormulas()
   
2. On Error GoTo Finish '获取最后一行
   
3. MsgBox "最后一行是第" & Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlFormulas, SearchDirection:=xlPrevious).EntireRow.Row & "行"
   
4. Exit Sub
   
5. Finish:
   
6. MsgBox "没发现数值或公式！"
   
7. End Sub

复制代码

micch

前面加一句取消筛选代码

沈默00

本来不应该是取得筛选后的最后一行呀，不然你干嘛要筛选？
如果是需要筛选前的最后一行，在前面加一句sheet1.range("a:az").autofilter  用于取消表格区域的筛选
另二楼老师说的问题注意下，从下面向上定位会更好，表格中间如果出现了空行也 会定位到最后一行的

准提部林

方法一//
Sub TEST_A1()
With ActiveSheet
     If .FilterMode Then .ShowAllData
     R = Cells(Rows.Count, 1).End(xlUp).Row
     MsgBox R
End With
End Sub

准提部林

方法二//取得資料範圍
Sub TEST_A2()
Dim xR As Range
With ActiveSheet
     If .AutoFilterMode Then Set xR = .AutoFilter.Range
     If xR Is Nothing Then Set xR = Range(.[N1], .[A65536].End(3))
     MsgBox xR.Address
End With
End Sub

figoisbest

我知道可以先取消filter,但这样会影响本来的工作.
我现在还是用 for loop找 空值, 速度也还行

opiona

Rem 可以获得隐藏的行 和筛选的行
Set SHX = ActiveSheet
MsgBox SHX.Range("a65536").End(xlUp).Row
MsgBox SHX.Range("A" & SHX.Rows.Count).End(xlUp).CurrentRegion.Rows(SHX.Range("A" & SHX.Rows.Count).End(xlUp).CurrentRegion.Rows.Count).Row
rem  IntROW = SHX.Range(SHX.Cells(SHX.Rows.Count, ICOL).Address).End(xlUp).CurrentRegion.Rows(SHX.Range(SHX.Cells(SHX.Rows.Count, ICOL).Address).End(xlUp).CurrentRegion.Rows.Count).Row