根据判断数值所在区间返回相应的值

z182052237

根据左边的强度到右边找到相应的区间，并返回相应的强度名称

例：1138.1介于1000到2000之间，所以在C列应该返回A


求大神 ，这样的数据有几万行

lsc900707

简单的问题，可是你必须上传你的数据文件。

lsc900707

代码放模块里，在C3输入公式=getlevel(B2)，下拉即可
Function getlevel(ByRef num)
    Result = ""
    MaxRow = Application.Count(Range("F:F")) + 1
    For i = 2 To MaxRow
        If num < Range("G" & i).Value And num > Range("F" & i).Value Then
            Result = Range("E" & i).Value
            Exit For
        End If
    Next
    getlevel = Result
End Function

z182052237

大哥，我上传了 您看到了吗
有一些改动，您能帮我看看嘛

z182052237

lsc900707 发表于 2017-3-24 18:50
代码放模块里，在C3输入公式=getlevel(B2)，下拉即可
Function getlevel(ByRef num)
    Result = ""

大哥能帮我看看嘛

z182052237

lsc900707 发表于 2017-3-24 18:50
代码放模块里，在C3输入公式=getlevel(B2)，下拉即可
Function getlevel(ByRef num)
    Result = ""

大哥，求求您帮帮我，又多了个条件，您看看，要求左右两边名称相等，您帮帮我

skyzxh

=LOOKUP(B6,$F$2:$F$14,$H$2:$H$14)

lsc900707

z182052237 发表于 2017-3-24 20:11
大哥，求求您帮帮我，又多了个条件，您看看，要求左右两边名称相等，您帮帮我

代码放模块里，在C2输入公式=getlevel(B2)，下拉即可
Function getlevel(ByRef num)
    Result = ""
    MaxRow = Application.Count(Range("F:F")) + 1
    For i = 2 To MaxRow
        If num < Range("G" & i).Value And num > Range("F" & i).Value Then
            Result = Range("H" & i).Value
            Exit For
        End If
    Next
    getlevel = Result
End Function

lsc900707

参考附件>>>>>>>>>>>

z182052237

lsc900707 发表于 2017-3-24 23:43
参考附件>>>>>>>>>>>

大哥大哥，真的非常感激你，快要成功了，但是可能您太忙了，没来得及看清楚我后面增加的条件，你的解答对我提问的第一张图是非常试用的，谢谢您，可是后面我发现在查找的时候我还需要限定A列的值=E列的值（见图），所以在您给出的     If num < Range("G" & i).Value And num > Range("F" & i).Value这两个条件之外，还得再增加一个A列的值=E列的值，我不知道怎么编写，请问在百忙之中帮我解答一下，谢谢您，我在线等您！