用VBA如何找出筛选前某列的最大行号

周良

Excel处于筛选状态，怎么用VBA如何找出筛选前某列的最大行号

fxl447098457

Sub LastFilteredRow()
Dim rng As Range, startRow&, lastRow&, maxRow&
Set rng = Sheet1.AutoFilter.Range
startRow = rng.Row
lastRow = rng.Row + rng.Rows.Count - 1
For i = lastRow To startRow Step -1
If Not Sheet1.Rows(i).Hidden Then maxRow = i: Exit For
Next i
If maxRow = 0 Then maxRow = lastRow
MsgBox maxRow
Set rng = Nothing
End Sub

lizhipei78

筛选不筛选状态，原来的最大行都不会变，还是老样子就可以了

lss001

Sub 获取筛选前最后单元格行号()

    r = Sheet1.FilterMode '筛选模式
     '筛选列数
    s = Sheet1.AutoFilter.Filters.Count
    '筛选前单元格总数
    t = Sheet1.AutoFilter.Range.Count
   
    If r Then '判断筛选状态
            y = t / s '获取最后一个单元格行号
    End If
  
    ''Debug.Print y '打印至立即窗口
End Sub