请教高手一个关于筛选后得到最后一行的问题

nofound

9Y34cgrQ.rar (10.01 KB, 下载次数: 96)

2004-8-31 16:07 上传

点击文件名下载附件
请教高手一个关于筛选后得到最后一行的问题

为什么我在第一列中选择“闻浦3503线”进行筛选后的最后一行显示结果会不对呢？而选择其它的任何结果都显示正确的？这是为什么？

如何处理这个问题，确保任何时候点“最后一行”的命令都正确。

先谢过!

cofe2000

Private Sub CommandButton1_Click() lastrow = Columns("a").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row MsgBox "筛选后的最后一行的行号是：" & lastrow End Sub

nofound

对，这倒是个解决的办法，不过我后来也发现了一个好的办法就是

Private Sub CommandButton1_Click() lastrow = Columns("a").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Row MsgBox "筛选后的最后一行的行号是：" & lastrow End Sub

这样也可以解决，即改SearchOrder:=xlByColumns ，但为什么这样可以解决我就不清楚了

谢谢

taller

试试

MsgBox "Last row is" & Sheet3.UsedRange.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).Row

nofound

版主taller也是好办法!

谢谢，我收下了!

liyh67

这样对不对：
MsgBox "筛选后的最后一行的行号是：" & [a65536].End(xlUp).Row

yanjie

Option Explicit
Sub yanjie()
Dim i   As Long
Dim rg As Range
Set rg = Sheet1.AutoFilter.Range   '这是整个筛选区域表示方法，它包含标题行！
Set rg = rg.Columns(1)             '这是筛选区域的第1列表示方法
                i = rg.Find(What:="*", _
                            After:=rg.Cells(1), _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
Rows(i).Select
End Sub

liuyan819

学习了!! taller版主的好

nbqmdzlcdint

楼主辛苦了

努力加油学习中

Buffey

原帖由 taller 于 2004-8-31 16:24 发表
试试MsgBox "Last row is" & Sheet3.UsedRange.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).Row

我也是用.SpecialCells, 但找出來的都不正確, 為什麼呢?

[ 本帖最后由 Buffey 于 2010-12-19 22:10 编辑 ]