[已解决]如何根据多参数标记等级

xingel

sheet1中字段有 专业、专业成绩线（标记X）、非专业成绩D等级、非专业成绩C等级、非专业成绩B等级、非专业成绩A等级，sheet2中字段有 学号、姓名、专业、专业成绩、非专业成绩、综合等级，
求教如何根据sheet1中参数，求出sheet2中的综合等级？先行谢过各位

最佳答案

月排行榜 / 总排行榜

dsmch

2016-6-22 15:58

………………

跳转到最佳答案楼层

baksy

附件

dsmch

………………

xingel

感谢baksy的公式，感谢dsmch。
dsmch，若非专业成绩低于该类D档线，其综合等级中“ABCD”会继承上一个的ABCD等级，有劳改动一下

lmze2000

xingel 发表于 2016-6-22 17:19
感谢baksy的公式，感谢dsmch。
dsmch，若非专业成绩低于该类D档线，其综合等级中“ABCD”会继承上一个的AB ...

1. Sub TJ()
   
2.     Dim Sht As Worksheet, Rng As Range
   
3.     Dim Arr, Bz$
   
4.     Arr = Sheet2.[a1].CurrentRegion: brr = Sheet1.[a1].CurrentRegion
   
5.     Set Sht = Sheets("sheet1")
   
6.     For i = 2 To UBound(Arr)
   
7.         Set Rng = Sht.Columns(1).Find(Arr(i, 3), , , xlWhole)
   
8.         If Arr(i, 4) >= Sht.Cells(Rng.Row, 2) Then Bz = "X"
   
9.         For j = 1 To 4
   
10.             If Arr(i, 5) >= brr(Rng.Row, j + 2) Then Zy = Chr(69 - j)
    
11.         Next
    
12.         Cells(i, 7) = Zy & Bz
    
13.         Zy = "": Bz = ""
    
14.     Next
    
15.    
    
16. End Sub
    

复制代码

xingel

谢谢lmze2000的巧思，值得深刻学习
dsmch的字典思路也挺好，再加一句If s = 0 Then p = ""就完善了

xingel

多谢两位老师，已经解决问题了，太感谢了