请教如何提取一定范围值的数据

zhibiaodi

表中有不同班级的学生考试6次总分数据
如果某次考试总分在300-320之间，则把满足300-320分的考试总分，学生的班级、姓名，考号都一并提取在同一工作表的新区域中
请教怎么做，希望能够详细解答，我也想通过这个现实例子学习一下，谢谢。
数据提取实例表.rar (29.83 KB, 下载次数: 30)

2017-8-20 16:22 上传

点击文件名下载附件
数据表

hcm19522

K2:N2 下拉{=INDIRECT(TEXT(SMALL(IF(($D$2:$I$315>=300)*($D$2:$I$315<=320),ROW(D$2:I$315)*1000+COLUMN($D2:$I315)^(COLUMN(A1)=4)+(COLUMN(A1)-1)*(COLUMN(A1)<4)),ROW(A1)),"!R0C000"),)

zhibiaodi

hcm19522 发表于 2017-8-20 18:12
K2:N2 下拉{=INDIRECT(TEXT(SMALL(IF(($D$2:$I$315>=300)*($D$2:$I$315

这个公式看着好复杂啊
可以解释一下公式和各参数的作用含义吗？谢谢。

hcm19522

K2:L17{=IFERROR(INDIRECT(TEXT(SMALL(IF(($B$2:$F$11>=$H$2)*($B$2:$F$11<=$I$2),ROW(B$2:F$11)*1000+COLUMN($B2:$F11)^(COLUMN(A1)=2)+(COLUMN(A1)-1)*(COLUMN(A1)<2)),ROW(A1)),"!R0C000"),),"")

zhibiaodi

hcm19522 发表于 2017-8-21 11:42
K2:L17{=IFERROR(INDIRECT(TEXT(SMALL(IF(($B$2:$F$11>=$H$2)*($B$2:$F$11

多谢，非常感谢您的详细解答，虽然还不太懂，但我会努力的，再次感谢。

编号__9527

1. Sub 提取条件数据_Click()
   
2. 
   
3. Dim lastrow As Long, lastcol As Long, row As Long, col As Long, n As Long
   
4. n = 1
   
5. lastrow = Cells(Rows.Count, 1).End(xlUp).row
   
6. lastcol = Cells(2, Columns.Count).End(xlToLeft).Column
   
7. For row = 2 To lastrow
   
8.     For col = 4 To lastcol
   
9. If Cells(row, col).Value >= 300 And Cells(row, col).Value <= 320 Then
   
10. n = n + 1
    
11. Cells(n, 13) = Cells(row, 1).Text
    
12. Cells(n, 14) = Cells(row, 2).Text
    
13. Cells(n, 15) = Cells(row, 3).Text
    
14. Cells(n, 16) = Cells(row, col).Text
    
15. End If
    
16. Next col
    
17. Next row
    
18. End Sub
    

复制代码

zhibiaodi

编号__9527 发表于 2017-8-24 19:04

这个是VBA吗？
像编程一样，感觉有点高大上啊
非常感谢。

编号__9527

zhibiaodi 发表于 2017-8-26 08:16
这个是VBA吗？
像编程一样，感觉有点高大上啊
非常感谢。

是的，就是用一个循环查找

喝酒吃肉

编号__9527 发表于 2017-8-24 19:04

您好，大神，请教一下，就是假如只需返回   班级、姓名、学号三个字段，那么返回的结果会有重复值，要在VBA里再加些什么代码，可以去除重复值？

编号__9527

喝酒吃肉 发表于 2017-9-9 16:13
您好，大神，请教一下，就是假如只需返回   班级、姓名、学号三个字段，那么返回的结果会有重复值，要在V ...

添加一下附件，并备注一下要实现的效果，我看看