等级分段判断

vvw123

数据在附件里。表一是分数线，表二是数据
希望用公式得到：如，理科分数540，那么他的等级就是重点；文科分数320，她的等级就是3A，能否用公式自动匹配？
感谢各位！本问题已经解决！

bjxiaohan

D2

1. =IF(A2="理科",LOOKUP(C2,{162,"3B";317,"3A";415,"2B";472,"2A";508,"重点"}),LOOKUP(C2,{186,"3B";318,"3A";387,"2B";408,"2A";485,"重点"}))

复制代码

问山8828680

IF(A2="理科",VLOOKUP(MAX((表一!$C$3:$C$7<=C2)*(表一!$C$3:$C$7)),IF({1,0},表一!$C$3:$C$7,表一!$B$3:$B$7),2,0),VLOOKUP(MAX((表一!$C$8:$C$12<=C2)*(表一!$C$8:$C$12)),IF({1,0},表一!$C$8:$C$12,表一!$B$8:$B$12),2,0))

随心_201320085

1. Sub pd()
   
2.     Dim i As Integer
   
3.     For i = 2 To 67
   
4.        If Cells(i, "A") = "理科" And Cells(i, "C") >= 508 Then
   
5.           Cells(i, "E") = "重点"
   
6.           ElseIf Cells(i, "A") = "理科" And Cells(i, "C") >= 472 Then
   
7.           Cells(i, "E") = "2A"
   
8.           ElseIf Cells(i, "A") = "理科" And Cells(i, "C") >= 415 Then
   
9.           Cells(i, "E") = "2B"
   
10.             ElseIf Cells(i, "A") = "理科" And Cells(i, "C") >= 317 Then
    
11.           Cells(i, "E") = "3A"
    
12.             ElseIf Cells(i, "A") = "理科" And Cells(i, "C") >= 162 Then
    
13.           Cells(i, "E") = "3B"
    
14.           ElseIf Cells(i, "A") = "文科" And Cells(i, "C") >= 485 Then
    
15.           Cells(i, "E") = "重点"
    
16.           ElseIf Cells(i, "A") = "文科" And Cells(i, "C") >= 408 Then
    
17.           Cells(i, "E") = "2A"
    
18.           ElseIf Cells(i, "A") = "文科" And Cells(i, "C") >= 387 Then
    
19.           Cells(i, "E") = "2B"
    
20.           ElseIf Cells(i, "A") = "文科" And Cells(i, "C") >= 318 Then
    
21.           Cells(i, "E") = "3A"
    
22.           Else
    
23.            Cells(i, "E") = "3B"
    
24.           End If
    
25.         Next
    
26. End Sub
    

复制代码

bjxiaohan

随心_201320085 发表于 2015-12-14 17:08

在这里，总是让人感觉到温暖！

看见星光

表一稍微更改一下。

1. =LOOKUP(C2,OFFSET(表一!$B$3:$C$7,(A2="文科")*5,))

复制代码

12133.rar (8.67 KB, 下载次数: 83)

2015-12-14 17:11 上传

点击文件名下载附件

问山8828680

简化一下
VLOOKUP(MAX((A2=表一!$A$3:$A$12)*(表一!$C$3:$C$12<=C2)*表一!$C$3:$C$12),IF({1,0},表一!$C$3:$C$12,表一!$B$3:$B$12),2,0)

小小道童

1. =INDEX(表一!$B$3:$B$12,MATCH(1=1,IF(表一!$A$3:$A$12=A2,表一!$C$3:$C$12<=C2),))

复制代码

E2数组公式

随心_201320085

其实吧   公式可以解决的  不错这最在学VBA   想用VBA解决  所以写了一段这么繁长的代码，我想有很多简化代码的，不过总要有学习成长的过程！  

随心_201320085

bjxiaohan 发表于 2015-12-14 17:09
在这里，总是让人感觉到温暖！

是因为写的太繁琐了吧  嘿嘿