关于产品等级判别的函数

hi，这是我用百度网盘分享的内容~复制这段内容打开「百度网盘」APP即可获取
链接:网页链接
提取码:aym7

@zipall

Sub pd?)
Dim i As Integer
For i = 7 To 51
'B=Fe C=Si D E=Cu F=Ga G=Zn H=V K=zazhi
If Range("I" & i) < 0.155 _
And Range("B" & i) < 0.126 _
And Range("C" & i) < 0.086 _
And Range("D" & i) < 0.0055 Or Range("D" & i) = "--" _
And Range("E" & i) < 0.026 _
And Range("F" & i) < 0.035 _
And Range("G" & i) < 0.035 _
And Range("H" & i) < 0.0155 _
Then
Range("k" & i) = "Al99.85"
ElseIf _
Range("I" & i) >= 0.155 And Range("I" & i) < 0.206 _
And Range("B" & i) < 0.146 _
And Range("C" & i) < 0.095 _
And Range("D" & i) < 0.0055 Or Range("D" & i) = "--" _
And Range("E" & i) < 0.026 _
And Range("F" & i) < 0.035 _
And Range("G" & i) < 0.035 _
And Range("H" & i) < 0.0155 _
Then
Range("k" & i) = "Al99.80"
ElseIf _
Range("I" & i) >= 0.206 And Range("I" & i) < 0.306 _
And Range("B" & i) < 0.206 _
And Range("C" & i) < 0.106 _
And Range("D" & i) < 0.106 Or Range("D" & i) = "--" _
And Range("E" & i) < 0.026 _
And Range("F" & i) < 0.035 _
And Range("G" & i) < 0.035 _
And Range("H" & i) < 0.035 _
Then
Range("k" & i) = "Al99.70"
ElseIf _
Range("I" & i) >= 0.306 And Range("I" & i) < 0.406 _
And Range("B" & i) < 0.255 _
And Range("C" & i) < 0.166 _
And Range("D" & i) < 0.106 Or Range("D" & i) = "--" _
And Range("E" & i) < 0.035 _
And Range("F" & i) < 0.035 _
And Range("G" & i) < 0.035 _
And Range("H" & i) < 0.035 _
Then
Range("k" & i) = "Al99.60"
ElseIf _
Range("I" & i) >= 0.406 And Range("I" & i) < 0.506 _
And Range("B" & i) < 0.306 _
And Range("C" & i) < 0.226 _
And Range("D" & i) < 0.0206 Or Range("D" & i) = "--" _
And Range("E" & i) < 0.035 _
And Range("F" & i) < 0.035 _
And Range("G" & i) < 0.055 _
And Range("H" & i) < 0.035 _
Then
Range("k" & i) = "Al99.50"
ElseIf _

没人帮忙，自己写了个超级烂的if函数，有没有办法帮忙优化的

通过bci三列基本可以判断出牌号

链接：https://pan.baidu.com/s/1m-3TJEgylkl23BecG760QQ
提取码：6666
你看能不能用，根据一表查找

根据上面的代码实现的，很高兴自己能做出来