两层筛选后怎样得到行号？急！

annylan · 发表于 2006-4-17 18:13

先对sheet1中的学校进行筛选，然后再对“物理”列筛选出有成绩的单元格，之后统计人数，也就是每个学校选物理的人数，可是得到的结果却是一样的（点击按钮运行后在sheet2中得到结果），而且结果是所有学校的选物理的人数。真是奇了怪了。请高手们看一下。

Rw68MTzK.rar (105.98 KB, 下载次数: 13)

[此贴子已经被作者于2006-4-17 22:53:35编辑过]

mayfor · 发表于 2006-4-17 20:14

annylan老师，统计筛选过的数据要用subtotal，用其他的是统计表中全部数据。

annylan · 发表于 2006-4-17 21:15

我知道统计筛选过的数据要用subtotal，但是我不是统计，是求筛选过后的行号，也就是最后一行啊。

jacksonzeng · 发表于 2006-4-17 21:19

筛选后的[A65536].END(XLUP).ROW行号好像和筛选前的是没有区别的吧？

annylan · 发表于 2006-4-17 21:23

有区别，手工操作一下就知道了。而且我的语、数、外筛选后得到的就是正确的，而且物、化、生、政、史、地因为要多筛选一次（筛选出非空的单元格）得到的结果就不对了没有变化了。

jacksonzeng · 发表于 2006-4-17 22:09

哦，原来是这样吖。这个我不太清楚，没试过。^_^

annylan · 发表于 2006-4-17 22:49

哎，烦啊，今天弄了一天，真是郁闷死了[em06]

qee用 · 发表于 2006-4-17 23:11

自动筛选问题多多,能不用就不用.
简单地看:
'物理
'筛选出物理列中有成绩的
Sheets("sheet1").Range("g2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="<>", Operator:=xlAnd
红色句是多于的,它使你第一次的筛选归于无效.但直觉上,问题恐不止于此.

annylan · 发表于 2006-4-17 23:16

终于被我自己给挖掘出来了！佩服我自己一下。因为是两层筛选所以在第二次选物理时下面兰色的两句不能加，否则相当于没有对学校列进行筛选。但原因我不清楚，我只是这样实验出来的。

For k = 0 To d.Count - 1 '按学校进行计算
'筛选出学校
Sheets("sheet1").Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=a(k), Operator:=xlAnd

'物理
'筛选出物理列中有成绩的
Sheets("sheet1").Range("g2").Select 这两句不能要
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="<>", Operator:=xlAnd

x = Sheets("sheet1").Range("a65536").End(xlUp).Row 'x是sheet1筛选后的总行数（二次筛选后的，筛选学校、筛选物理）

Sheets("sheet2").Cells(4, k + 1) = a(k)
Sheets("sheet2").Cells(5, k + 1) = x
next k

[此贴子已经被作者于2006-4-17 23:22:43编辑过]

annylan · 发表于 2006-4-17 23:20

发完上一贴才看到8楼的贴子，难道还有问题？别吓我啊。

再说，不用自动筛选怎么办呢，我要筛选出各个学校的各科成绩呀。

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

两层筛选后怎样得到行号？急！

浏览过的版块