[已解决]多条件提取数据

gzmczb · 发表于 2012-1-13 11:41

提示: 作者被禁止或删除内容自动屏蔽

sunjing-zxl · 发表于 2012-1-13 11:41

这个最佳答案由 sunjing-zxl 给出，感谢 sunjing-zxl 的回答。

单击隐藏图章

本帖最后由 sunjing-zxl 于 2012-1-13 14:42 编辑

Sub aa()
Dim arr, str1 As String, str2 As String
Dim i As Long, j As Long, n As Long
str1 = Cells(2, 1)
str2 = Cells(2, 2)
Range(Cells(5, 1), Cells([A65536].End(xlUp).Row, 15)).ClearContents
With Sheets("成绩登记表")
arr = .Range(.Cells(4, 1), .Cells(.[A65536].End(xlUp).Row, 16))
End With
ReDim arr1(1 To UBound(arr), 1 To 14)
For i = 1 To UBound(arr)
If arr(i, 2) = str1 And arr(i, 3) = str2 Then
n = n + 1
arr1(n, 1) = arr(i, 1)
For j = 4 To 16
arr1(n, j - 2) = arr(i, j)
Next j
End If
Next i
Range("A5").Resize(UBound(arr1), 14) = arr1
If n = 0 Then
Range("A5") = "无"
End If
End Sub

复制代码

附件：

教育质量检测成绩登记表及质量分析表-sunjing.rar (275.8 KB, 下载次数: 117)

hytsky · 发表于 2012-1-13 11:52

本帖最后由 hytsky 于 2012-1-13 14:55 编辑

我来看看的```答案在附件中，仅供参考{:101:}好的话给个最佳就行了

QLZ0602 · 发表于 2012-1-13 12:40

请根据A2单元格（年级）、B2单元格（班级）数据，提取A列数据（学号）

提取到哪呢?

liuguansky · 发表于 2012-1-13 12:46

=INDEX(成绩登记表!A:O,SMALL(IF((成绩登记表!B$4:B$212=班级成绩打印!A$2)*(成绩登记表!C$4:C$212=班级成绩打印!B$2),ROW($4:$212),4^8),ROW($1:$209)),COLUMN(A:O))&""

复制代码

区域数组
速度还可以

教育质量检测成绩登记表及质量分析表.rar (274.54 KB, 下载次数: 16)

QLZ0602 · 发表于 2012-1-13 12:51

=INDEX(成绩登记表!A:A,SMALL(IF((成绩登记表!$B4:$B10000=A$2)*(成绩登记表!$C$4:$C$10000=B$2),ROW($B$4:$B$10000),65536),ROW(A1)))

数组公式 ctrl+shift+enter

QLZ0602 · 发表于 2012-1-13 12:54

=IF(A5="","",VLOOKUP($A5,成绩登记表!$A:$R,COLUMN(D:D),0))

WANGSHANGKUN · 发表于 2012-1-13 13:10

看看先

skyline_zwl · 发表于 2012-1-13 13:10

我的方法和5楼一样，只知道这一种。。。。
{=INDEX(成绩登记表!A:A,SMALL(IF((成绩登记表!$B$4:$B$212=班级成绩打印!$A$2)*(成绩登记表!$C$4:$C$212=班级成绩打印!$B$2),ROW(成绩登记表!$B$4:$B$212),4^8),ROW(A1)))&""}

WANGSHANGKUN · 发表于 2012-1-13 13:18

学习了

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

gzmczb gzmczb 当前离线积分 0 IP卡狗仔卡	发表于 2012-1-13 11:41 \| 显示全部楼层 \|阅读模式工作中常用的Excel函数公式，全印在一张超大鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
gzmczb gzmczb 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡
	工作中最常用的函数公式，全印在一张超大的鼠标垫上

[已解决]多条件提取数据

点评

点评