如何得到筛选后的第一行？

nofound · 发表于 2004-5-11 00:21

在程序中如何得到筛选后的第一行？即如图中显示行号为16的那行？

有一个问题，就是这个第一行是随着筛选的不同而不同的!

Rowen · 发表于 2004-5-11 09:46

一种方法可以利用筛选区域复制时自动忽略隐藏区域的特性, 将筛选结果复制到另一个表或区域, 再找出该区域的第二行(因第一行为标题)

另一种方法可以读出可见区域地址 Cells.SpecialCells(xlCellTypeVisible), 这个数组第二行就是你要的:Cells.SpecialCells(xlCellTypeVisible).Areas(2).Address

nofound · 发表于 2004-5-11 14:22

谢谢版主先生!我去试试看!

jinn_yang · 发表于 2009-6-17 21:18

学习了！谢谢！

yanjie · 发表于 2009-6-17 21:30

也来一种：
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Rows(1).Select
解释一下：
ActiveSheet.AutoFilter.Range 表示自动筛选区域！

ActiveSheet.AutoFilter.Range.Offset(1) 偏移一行，去掉标题行

ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible) 定位到可见单元格！

ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Rows(1).Select
选择它的第1行！

cabin9999 · 发表于 2009-12-10 00:07

很强大，学习了。
试了一下，不知如何，能把这个行号输出到Integer or String?

liucqa · 发表于 2012-3-16 12:43

学习

RMD049 · 发表于 2015-9-10 11:59

yanjie 发表于 2009-6-17 21:30
也来一种：
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Rows(1).Select
...

很好，刚刚需要呢，谢谢

avar · 发表于 2017-1-15 23:51

yanjie 发表于 2009-6-17 21:30
也来一种：
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Rows(1).Select
...

大侠，这个方式如何定位到可见区域的某个单元格，比如第3行第9列？

achang46895 · 发表于 2017-3-29 10:07

yanjie 发表于 2009-6-17 21:30
也来一种：
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Rows(1).Select
...

你好版主，想请问一下如果要的是前三行呢，又该如何表示~

		自动登录	找回密码
密码			免费注册

如何得到筛选后的第一行？

评分

评分